[Scsh-checkins] CVS: scsh-0.6/scheme/alt low-packages.scm,1.1.1.1,1.2

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scheme/alt
In directory usw-pr-cvs1:/tmp/cvs-serv24517/scheme/alt

Modified Files:
        low-packages.scm 
Log Message:
Merged in macro expander changes from Scheme 48 0.56.


Index: low-packages.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scheme/alt/low-packages.scm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** low-packages.scm    1999/09/14 12:44:54     1.1.1.1
--- low-packages.scm    2001/07/09 14:15:05     1.2
***************
*** 27,28 ****
--- 27,35 ----
         weak
         contin))
+ 
+ (define-structure code-quote (export (code-quote :syntax))
+   (open scheme-level-2)
+   (begin
+     (define-syntax code-quote
+       (lambda (e r c)
+       `(,(r 'quote) ,(cadr e))))))