diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-10-14 03:28:35 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-10-14 03:28:35 +0000 |
commit | 6d2388ee6c870bfc752706c26fceb0e612965cc0 (patch) | |
tree | 2839259ee95f2521f52c9648c15062149a0e8991 | |
parent | 9b7def6677c3ed6cb5d480c9d2f53ac9a68ee0cc (diff) | |
download | guile-6d2388ee6c870bfc752706c26fceb0e612965cc0.tar.gz |
* debug.scm (make-enable, make-disable): Simplified.
-rw-r--r-- | ice-9/debug.scm | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/ice-9/debug.scm b/ice-9/debug.scm index 078669aca..500f9b80e 100644 --- a/ice-9/debug.scm +++ b/ice-9/debug.scm @@ -69,10 +69,7 @@ (define (make-enable interface) `(lambda flags - (,interface (append (if (pair? flags) - flags - (list flags)) - (,interface))) + (,interface (append flags (,interface))) (,interface))) (define (make-disable interface) @@ -80,7 +77,7 @@ (let ((options (,interface))) (for-each (lambda (flag) (set! options (delq! flag options))) - (if (pair? flags) flags (list flags))) + flags) (,interface options) (,interface)))) @@ -112,3 +109,9 @@ names)))) (define-all) + + + +;;; A fix to get the error handling working together with the module system. +;;; +(variable-set! (builtin-variable 'debug-options) debug-options) |