diff --git a/src/ikarus.boot b/src/ikarus.boot index 0ac9146..d2c38f4 100644 Binary files a/src/ikarus.boot and b/src/ikarus.boot differ diff --git a/src/ikarus.symbols.ss b/src/ikarus.symbols.ss index ad8b662..a26e04d 100644 --- a/src/ikarus.symbols.ss +++ b/src/ikarus.symbols.ss @@ -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 diff --git a/src/ikarus.syntax.ss b/src/ikarus.syntax.ss index cb331c0..2ad4d30 100644 --- a/src/ikarus.syntax.ss +++ b/src/ikarus.syntax.ss @@ -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?) diff --git a/src/makefile.ss b/src/makefile.ss index 16f68a0..bc0702a 100755 --- a/src/makefile.ss +++ b/src/makefile.ss @@ -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]