[patch] Better representation of ClassExps in syntax-utils

[Jamison Hope <jrh at theptrgroup dot com>]

The attached patch adds an unrewrite-class function to syntaxutils.scm,
to handle the expansion of ClassExps.  It's by no means complete, but
a significant step up from treating them as LambdaExps (and throwing
an error in unrewrite-arglist).

Before:

#|kawa:1|# (require 'syntax-utils)
#|kawa:2|# (expand '(define-simple-class Foo (java.util.ArrayList) ((foo) allocation: 'static #!native)))
#<ERROR nyi>

After:

#|kawa:1|# (require 'syntax-utils)
#|kawa:2|# (expand '(define-simple-class Foo (java.util.ArrayList) ((foo) allocation: 'static #!native)))
(let ((Foo #!undefined))
 (set Foo
  (class (<java.util.ArrayList>) ((foo) allocation: (quote static) #!native))))


--
Jamison Hope
The PTR Group
www.theptrgroup.com

Attachment: syntaxutils_unrewrite-class.patch
Description: Binary data