From 1a7b10972e6208fa65d77e4b0a4a5e0c268a2a59 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Wed, 8 Jun 2005 20:59:14 +0000
Subject: [PATCH] fix defstruct to use allocate-instance properly

svn: r79
---
 collects/swindle/extra.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/swindle/extra.ss b/collects/swindle/extra.ss
index ea9dcd8524..4ca83c9ef2 100644
--- 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