guile/guile-core/ice-9 boot-9.scm

[Marius Vollmer]

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))))