conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* Added fields, immutable, mutable, opaque, parent, parent-rtd, 

protocol, sealed, and nongenerative auxiliary macros.
This commit is contained in:
Abdulaziz Ghuloum 2007-10-12 00:59:16 -04:00
parent 5f19e802f6
commit a5febf508b
4 changed files with 30 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

27
src/makefile.ss
View File

@ -135,6 +135,15 @@
[buffer-mode (macro . buffer-mode)]
[file-options (macro . file-options)]
[error-handling-mode (macro . error-handling-mode)]
[fields (macro . fields)]
[mutable (macro . mutable)]
[immutable (macro . immutable)]
[parent (macro . parent)]
[protocol (macro . protocol)]
[sealed (macro . sealed)]
[opaque (macro . opaque )]
[nongenerative (macro . nongenerative)]
[parent-rtd (macro . parent-rtd)]
))
(define library-legend
@ -1112,17 +1121,17 @@
[file-exists? i r fi]
[delete-file i r fi]
[define-record-type r rs]
[fields r rs]
[immutable r rs]
[mutable r rs]
[opaque r rs]
[parent r rs]
[parent-rtd r rs]
[protocol r rs]
[fields i r rs]
[immutable i r rs]
[mutable i r rs]
[opaque i r rs]
[parent i r rs]
[parent-rtd i r rs]
[protocol i r rs]
[record-constructor-descriptor r rs]
[record-type-descriptor i r rs]
[sealed r rs]
[nongenerative r rs]
[sealed i r rs]
[nongenerative i r rs]
[record-field-mutable? r ri]
[record-rtd r ri]
[record-type-field-names i r ri]

4
src/psyntax.expander.ss
View File

@ -1929,7 +1929,9 @@
(symbol-macro x '(none line block))))
((file-options) file-options-macro)
((... => _ else unquote unquote-splicing
unsyntax unsyntax-splicing)
unsyntax unsyntax-splicing
fields mutable immutable parent protocol
sealed opaque nongenerative parent-rtd)
incorrect-usage-macro)
(else (error 'macro-transformer "invalid macro ~s" x))))
(else (error 'core-macro-transformer "invalid macro ~s" x)))))

18
src/todo-r6rs.ss
View File

@ -696,17 +696,17 @@
[delete-file C fi]
;;;
[define-record-type X rs]
[fields X rs]
[immutable X rs]
[mutable X rs]
[opaque X rs]
[parent X rs]
[parent-rtd X rs]
[protocol X rs]
[fields C rs]
[immutable C rs]
[mutable C rs]
[opaque C rs]
[parent C rs]
[parent-rtd C rs]
[protocol C rs]
[record-constructor-descriptor X rs]
[record-type-descriptor X rs]
[sealed X rs]
[nongenerative X rs]
[sealed C rs]
[nongenerative C rs]
;;;
[record-field-mutable? X ri]
[record-rtd X ri]