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)] [buffer-mode (macro . buffer-mode)]
[file-options (macro . file-options)] [file-options (macro . file-options)]
[error-handling-mode (macro . error-handling-mode)] [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 (define library-legend
@ -1112,17 +1121,17 @@
[file-exists? i r fi] [file-exists? i r fi]
[delete-file i r fi] [delete-file i r fi]
[define-record-type r rs] [define-record-type r rs]
[fields r rs] [fields i r rs]
[immutable r rs] [immutable i r rs]
[mutable r rs] [mutable i r rs]
[opaque r rs] [opaque i r rs]
[parent r rs] [parent i r rs]
[parent-rtd r rs] [parent-rtd i r rs]
[protocol r rs] [protocol i r rs]
[record-constructor-descriptor r rs] [record-constructor-descriptor r rs]
[record-type-descriptor i r rs] [record-type-descriptor i r rs]
[sealed r rs] [sealed i r rs]
[nongenerative r rs] [nongenerative i r rs]
[record-field-mutable? r ri] [record-field-mutable? r ri]
[record-rtd r ri] [record-rtd r ri]
[record-type-field-names i 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)))) (symbol-macro x '(none line block))))
((file-options) file-options-macro) ((file-options) file-options-macro)
((... => _ else unquote unquote-splicing ((... => _ else unquote unquote-splicing
unsyntax unsyntax-splicing) unsyntax unsyntax-splicing
fields mutable immutable parent protocol
sealed opaque nongenerative parent-rtd)
incorrect-usage-macro) incorrect-usage-macro)
(else (error 'macro-transformer "invalid macro ~s" x)))) (else (error 'macro-transformer "invalid macro ~s" x))))
(else (error 'core-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] [delete-file C fi]
;;; ;;;
[define-record-type X rs] [define-record-type X rs]
[fields X rs] [fields C rs]
[immutable X rs] [immutable C rs]
[mutable X rs] [mutable C rs]
[opaque X rs] [opaque C rs]
[parent X rs] [parent C rs]
[parent-rtd X rs] [parent-rtd C rs]
[protocol X rs] [protocol C rs]
[record-constructor-descriptor X rs] [record-constructor-descriptor X rs]
[record-type-descriptor X rs] [record-type-descriptor X rs]
[sealed X rs] [sealed C rs]
[nongenerative X rs] [nongenerative C rs]
;;; ;;;
[record-field-mutable? X ri] [record-field-mutable? X ri]
[record-rtd X ri] [record-rtd X ri]