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 (export gensym gensym? gensym->unique-string gensym-prefix
gensym-count print-gensym string->symbol symbol->string gensym-count print-gensym string->symbol symbol->string
getprop putprop remprop property-list getprop putprop remprop property-list

8
src/ikarus.syntax.ss
View File

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

33
src/makefile.ss
View File

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