fix defstruct to use allocate-instance properly

svn: r79
2005-06-08 20:59:14 +00:00 · 2005-06-08 20:59:14 +00:00 · 1a7b10972e
commit 1a7b10972e
parent 9bd930818d
1 changed files with 1 additions and 1 deletions
--- a/collects/swindle/extra.ss
+++ b/collects/swindle/extra.ss
@ -30,7 +30,7 @@
        (hash-table-put! struct-to-slot-names this slots)
        (add-method allocate-instance
          (let ([???s (build-list (length allslots) (lambda _ ???))])
-            (method ([class = this]) (maker . ???s))))
+            (method ([class = this] initargs) (maker . ???s))))
        (add-method initialize
          (let ([none "-"]
                [keys (build-list