mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-03 08:10:31 +02:00
Code Activity

revert annotation support in syncase. another day perhaps.

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2009-03-13 23:45:24 +01:00 • committed by Andy Wingo
parent 979933ab5b
commit deca2251b9
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
module/ice-9/syncase.scm
View file

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