mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-20 18:50:21 +02:00
Code Activity

* boot-9.scm (use-syntax): Return *unspecified*.

Browse source 
* syncase.scm: (syncase): Set expansion-eval-closure.
This commit is contained in:
Mikael Djurfeldt 2003-01-15 20:35:25 +00:00
parent 7906d57d02
commit cf743aeae6
3 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/ChangeLog
View file

@ -1,13 +1,17 @@
2003-01-15 Mikael Djurfeldt <djurfeldt@nada.kth.se> 2003-01-15 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* boot-9.scm (use-syntax): Return *unspecified*.
* syncase.scm: Set expansion-eval-closure to * syncase.scm: Set expansion-eval-closure to
the-syncase-eval-closure during booting so that variables are the-syncase-eval-closure during booting so that variables are
created in the correct module; created in the correct module.
(syncase): Set expansion-eval-closure.
(define-syntax define-syntax-public eval-when fluid-let-syntax (define-syntax define-syntax-public eval-when fluid-let-syntax
identifier-syntax let-syntax letrec-syntax syntax syntax-case identifier-syntax let-syntax letrec-syntax syntax syntax-case
syntax-rules with-syntax include): Removed definitions (these are syntax-rules with-syntax include): Removed definitions (these are
created from within psyntax.pp). created from within psyntax.pp).
2003-01-10 Mikael Djurfeldt <djurfeldt@nada.kth.se> 2003-01-10 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* occam-channel.scm (make-channel): Renamed from channel. * occam-channel.scm (make-channel): Renamed from channel.

5
ice-9/boot-9.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; installed-scm-file
;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002 Free Software Foundation, Inc. ;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002, 2003 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This program is free software; you can redistribute it and/or modify ;;;; This program is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by ;;;; it under the terms of the GNU General Public License as published by
@ -2593,7 +2593,8 @@
(list ,@(compile-interface-spec spec)))) (list ,@(compile-interface-spec spec))))
(set-module-transformer! (current-module) (set-module-transformer! (current-module)
,(car (last-pair spec)))) ,(car (last-pair spec))))
`((set-module-transformer! (current-module) ,spec)))) `((set-module-transformer! (current-module) ,spec)))
*unspecified*)
(else (else
(error "use-syntax can only be used at the top level")))) (error "use-syntax can only be used at the top level"))))

5
ice-9/syncase.scm
View file

@ -226,7 +226,10 @@
'*sc-expander* '*sc-expander*
'(define)))) '(define))))
(define syncase sc-expand) (define (syncase exp)
(with-fluids ((expansion-eval-closure
(module-eval-closure (current-module))))
(sc-expand exp)))
(set-module-transformer! the-syncase-module syncase) (set-module-transformer! the-syncase-module syncase)