dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

more inlining in psyntax

Browse source 
* module/ice-9/psyntax.scm (make-wrap, wrap-marks, wrap-subst): Use
  identifier syntax here too.

* module/ice-9/psyntax-pp.scm: Regenerated.
This commit is contained in:
Andy Wingo 2010-10-08 11:43:15 +02:00
commit 381ccb0b89
2 changed files with 6854 additions and 6885 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -647,9 +647,9 @@
;; <subs> ::= #(<old name> <label> (<mark> ...))
;; <shift> ::= positive fixnum
(define make-wrap cons)
(define wrap-marks car)
(define wrap-subst cdr)
(define-syntax make-wrap (identifier-syntax cons))
(define-syntax wrap-marks (identifier-syntax car))
(define-syntax wrap-subst (identifier-syntax cdr))
(define-syntax subst-rename? (identifier-syntax vector?))
(define-syntax rename-old (syntax-rules () ((_ x) (vector-ref x 0))))