mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

(turn-on-debugging): New function, to be used by

Browse source 
scm_compile_shell_switches.
This commit is contained in:
Marius Vollmer 2001-11-05 23:09:10 +00:00
parent 46356d0406
commit eef6519bde
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/boot-9.scm
View file

@ -629,6 +629,12 @@
;; This is mostly for the internal use of the code generated by ;; This is mostly for the internal use of the code generated by
;; scm_compile_shell_switches. ;; scm_compile_shell_switches.
(define (turn-on-debugging)
(debug-enable 'debug)
(debug-enable 'backtrace)
(read-enable 'positions))
(define (load-user-init) (define (load-user-init)
(let* ((home (or (getenv "HOME") (let* ((home (or (getenv "HOME")
(false-if-exception (passwd:dir (getpwuid (getuid)))) (false-if-exception (passwd:dir (getpwuid (getuid))))