revert annotation support in syncase. another day perhaps.

[bpt/guile.git] / module / ice-9 / syncase.scm

diff --git a/module/ice-9/syncase.scm b/module/ice-9/syncase.scm
index 8c161b4..82a6920 100644 (file)
--- a/module/ice-9/syncase.scm
+++ b/module/ice-9/syncase.scm
@@ -19,7 +19,6 @@
 (define-module (ice-9 syncase)
   :use-module (ice-9 debug)
   :use-module (ice-9 threads)
-  :use-module (ice-9 annotate)
   :export-syntax (sc-macro define-syntax define-syntax-public 
                   eval-when fluid-let-syntax
                  identifier-syntax let-syntax
@@ -43,11 +42,13 @@
 (define (env->eval-closure env)
   (and env (car (last-pair env))))
 
+(define (annotation? x) #f)
+
 (define sc-macro
   (procedure->memoizing-macro
     (lambda (exp env)
       (with-fluids ((expansion-eval-closure (env->eval-closure env)))
-        (deannotate/source-properties (sc-expand (annotate exp)))))))
+        (sc-expand exp)))))
 
 ;;; Exported variables
 
@@ -235,7 +236,7 @@
 (define (syncase exp)
   (with-fluids ((expansion-eval-closure
                 (module-eval-closure (current-module))))
-    (deannotate/source-properties (sc-expand (annotate exp)))))
+    (sc-expand exp)))
 
 (set-module-transformer! the-syncase-module syncase)