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

* added a (ikarus symbols) library.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-09 11:17:54 -04:00
parent f64b0ee310
commit fd91a5bafc
4 changed files with 22 additions and 21 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.

2
src/ikarus.symbols.ss
View File

@ -1,5 +1,5 @@
(library (ikarus symbols)
(library (ikarus base symbols)
(export gensym gensym? gensym->unique-string gensym-prefix
gensym-count print-gensym string->symbol symbol->string
getprop putprop remprop property-list

8
src/ikarus.syntax.ss
View File

@ -12,11 +12,11 @@
(import
(except (ikarus library-manager) installed-libraries)
(only (ikarus compiler) eval-core)
(only (ikarus) error)
(chez modules)
(only (ikarus) ormap andmap gensym fxadd1 fx= fxsub1 sub1 list*
add1 format make-record-type symbol-value parameterize
void make-parameter set-symbol-value!)
(ikarus symbols)
(only (ikarus) error ormap andmap fxadd1 fx= fxsub1 sub1 list*
add1 format make-record-type parameterize
void make-parameter)
(rename (r6rs)
(free-identifier=? sys:free-identifier=?)
(identifier? sys:identifier?)

33
src/makefile.ss
View File

@ -95,6 +95,7 @@
(define library-legend
'([i (ikarus) #t]
[symbols (ikarus symbols) #t]
[r (r6rs) #t]
[cm (chez modules) #t]
[$all (ikarus system $all) #f]
@ -288,19 +289,19 @@
[number->string i r]
[string->number i r]
[flonum->string i]
[symbol? i r]
[gensym? i]
[gensym i]
[getprop i]
[putprop i]
[remprop i]
[property-list i]
[string->symbol i r]
[symbol->string i r]
[gensym->unique-string i]
[symbol-bound? i]
[symbol-value i]
[set-symbol-value! i]
[symbol? i r symbols]
[gensym? i symbols]
[gensym i symbols]
[getprop i symbols]
[putprop i symbols]
[remprop i symbols]
[property-list i symbols]
[string->symbol i r symbols]
[symbol->string i r symbols]
[gensym->unique-string i symbols]
[symbol-bound? i symbols]
[symbol-value i symbols]
[set-symbol-value! i symbols]
[make-guardian i]
[make-input-port i]
[make-output-port i]
@ -351,9 +352,9 @@
[format i]
[pretty-print i]
[comment-handler i]
[print-gensym i]
[gensym-count i]
[gensym-prefix i]
[print-gensym i symbols]
[gensym-count i symbols]
[gensym-prefix i symbols]
[make-hash-table i]
[hash-table? i]
[get-hash-table i]