suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix defstruct to use allocate-instance properly

Browse Source 
svn: r79
This commit is contained in:
Eli Barzilay 2005-06-08 20:59:14 +00:00
parent 9bd930818d
commit 1a7b10972e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/swindle/extra.ss
View File

@ -30,7 +30,7 @@
(hash-table-put! struct-to-slot-names this slots) (hash-table-put! struct-to-slot-names this slots)
(add-method allocate-instance (add-method allocate-instance
(let ([???s (build-list (length allslots) (lambda _ ???))]) (let ([???s (build-list (length allslots) (lambda _ ???))])
(method ([class = this]) (maker . ???s)))) (method ([class = this] initargs) (maker . ???s))))
(add-method initialize (add-method initialize
(let ([none "-"] (let ([none "-"]
[keys (build-list [keys (build-list