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

remove *mode* fluid from psyntax

Browse source 
* module/ice-9/psyntax.scm: Remove the *mode* fluid. Whee :)
  (macroexpand): No need to bind aa *mode* fluid.

* module/ice-9/psyntax-pp.scm: Regenerated.
This commit is contained in:
Andy Wingo 2010-05-20 12:54:47 +02:00
parent 632ddbf02b
commit 131ae7b49d
2 changed files with 8235 additions and 8308 deletions
Download patch file Download diff file Expand all files Collapse all files

16538
module/ice-9/psyntax-pp.scm
View file

File diff suppressed because it is too large Load diff

5
module/ice-9/psyntax.scm
View file

@ -294,8 +294,6 @@
...)))))) ...))))))
(let () (let ()
(define *mode* (make-fluid))
(define-expansion-constructors) (define-expansion-constructors)
;;; hooks to nonportable run-time helpers ;;; hooks to nonportable run-time helpers
@ -2372,8 +2370,7 @@
'(eval) '(eval)
(cadr rest))) (cadr rest)))
(mod (cons 'hygiene (module-name (current-module))))) (mod (cons 'hygiene (module-name (current-module)))))
(with-fluids ((*mode* m)) (chi-top x null-env top-wrap m esew mod))))
(chi-top x null-env top-wrap m esew mod)))))
(set! identifier? (set! identifier?
(lambda (x) (lambda (x)