From deca2251b9d9128f62142b369a309caf05dbaa88 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 13 Mar 2009 23:45:24 +0100 Subject: [PATCH] revert annotation support in syncase. another day perhaps. * module/ice-9/syncase.scm: Revert support for annotations, as I'm seeing wierd problems whereby syntax-object->datum does not fully strip its input. --- module/ice-9/syncase.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/module/ice-9/syncase.scm b/module/ice-9/syncase.scm index 8c161b400..82a69200a 100644 --- 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) -- 2.20.1