summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1996-10-14 03:28:35 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1996-10-14 03:28:35 +0000
commit6d2388ee6c870bfc752706c26fceb0e612965cc0 (patch)
tree2839259ee95f2521f52c9648c15062149a0e8991
parent9b7def6677c3ed6cb5d480c9d2f53ac9a68ee0cc (diff)
downloadguile-6d2388ee6c870bfc752706c26fceb0e612965cc0.tar.gz
* debug.scm (make-enable, make-disable): Simplified.
-rw-r--r--ice-9/debug.scm13
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)