[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/ice-9 boot-9.scm
From: |
Marius Vollmer |
Subject: |
guile/guile-core/ice-9 boot-9.scm |
Date: |
Mon, 05 Nov 2001 18:09:10 -0500 |
CVSROOT: /cvs
Module name: guile
Changes by: Marius Vollmer <address@hidden> 01/11/05 18:09:10
Modified files:
guile-core/ice-9: boot-9.scm
Log message:
(turn-on-debugging): New function, to be used by
scm_compile_shell_switches.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/boot-9.scm.diff?cvsroot=OldCVS&tr1=1.275&tr2=1.276&r1=text&r2=text
Patches:
Index: guile/guile-core/ice-9/boot-9.scm
diff -u guile/guile-core/ice-9/boot-9.scm:1.275
guile/guile-core/ice-9/boot-9.scm:1.276
--- guile/guile-core/ice-9/boot-9.scm:1.275 Wed Oct 17 08:02:13 2001
+++ guile/guile-core/ice-9/boot-9.scm Mon Nov 5 18:09:10 2001
@@ -629,6 +629,12 @@
;; This is mostly for the internal use of the code generated by
;; scm_compile_shell_switches.
+
+(define (turn-on-debugging)
+ (debug-enable 'debug)
+ (debug-enable 'backtrace)
+ (read-enable 'positions))
+
(define (load-user-init)
(let* ((home (or (getenv "HOME")
(false-if-exception (passwd:dir (getpwuid (getuid))))
- guile/guile-core/ice-9 boot-9.scm,
Marius Vollmer <=