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

* added a (chez modules) library that exports the module keyword.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-09 11:12:27 -04:00
parent 48244ec85e
commit f64b0ee310
3 changed files with 133 additions and 128 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.

10
src/ikarus.syntax.ss
View File

@ -10,10 +10,14 @@
generate-temporaries free-identifier=? syntax-error generate-temporaries free-identifier=? syntax-error
eval-r6rs-top-level boot-library-expand eval-top-level) eval-r6rs-top-level boot-library-expand eval-top-level)
(import (import
(ikarus library-manager) (except (ikarus library-manager) installed-libraries)
(only (ikarus compiler) eval-core) (only (ikarus compiler) eval-core)
(rename (except (ikarus) boot-library-expand (only (ikarus) error)
eval-top-level installed-libraries) (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!)
(rename (r6rs)
(free-identifier=? sys:free-identifier=?) (free-identifier=? sys:free-identifier=?)
(identifier? sys:identifier?) (identifier? sys:identifier?)
(syntax-error sys:syntax-error) (syntax-error sys:syntax-error)

251
src/makefile.ss
View File

@ -96,6 +96,7 @@
(define library-legend (define library-legend
'([i (ikarus) #t] '([i (ikarus) #t]
[r (r6rs) #t] [r (r6rs) #t]
[cm (chez modules) #t]
[$all (ikarus system $all) #f] [$all (ikarus system $all) #f]
[$pairs (ikarus system $pairs) #f] [$pairs (ikarus system $pairs) #f]
[$lists (ikarus system $lists) #f] [$lists (ikarus system $lists) #f]
@ -118,7 +119,7 @@
(define ikarus-macros-map (define ikarus-macros-map
'([define i r] '([define i r]
[define-syntax i r] [define-syntax i r]
[module i ] [module i cm]
[begin i r] [begin i r]
[set! i r] [set! i r]
[foreign-call i r] [foreign-call i r]
@ -149,99 +150,99 @@
(define ikarus-procedures-map (define ikarus-procedures-map
'([void i] '([void i]
[not i] [not i r]
[boolean? i] [boolean? i r]
[null? i] [null? i r]
[procedure? i] [procedure? i r]
[eof-object? i] [eof-object? i r]
[eof-object i] [eof-object i]
[eq? i] [eq? i r]
[eqv? i] [eqv? i r]
[equal? i] [equal? i r]
[cons i] [cons i r]
[pair? i] [pair? i r]
[car i] [car i r]
[cdr i] [cdr i r]
[set-car! i] [set-car! i]
[set-cdr! i] [set-cdr! i]
[caar i] [caar i r]
[cdar i] [cdar i r]
[cadr i] [cadr i r]
[cddr i] [cddr i r]
[caaar i] [caaar i r]
[cdaar i] [cdaar i r]
[cadar i] [cadar i r]
[cddar i] [cddar i r]
[caadr i] [caadr i r]
[cdadr i] [cdadr i r]
[caddr i] [caddr i r]
[cdddr i] [cdddr i r]
[caaaar i] [caaaar i r]
[cdaaar i] [cdaaar i r]
[cadaar i] [cadaar i r]
[cddaar i] [cddaar i r]
[caadar i] [caadar i r]
[cdadar i] [cdadar i r]
[caddar i] [caddar i r]
[cdddar i] [cdddar i r]
[caaadr i] [caaadr i r]
[cdaadr i] [cdaadr i r]
[cadadr i] [cadadr i r]
[cddadr i] [cddadr i r]
[caaddr i] [caaddr i r]
[cdaddr i] [cdaddr i r]
[cadddr i] [cadddr i r]
[cddddr i] [cddddr i r]
[list i] [list i r]
[list-ref i] [list-ref i r]
[make-list i] [make-list i r]
[list* i] [list* i]
[list? i] [list? i r]
[append i] [append i r]
[last-pair i] [last-pair i r]
[reverse i] [reverse i r]
[length i] [length i r]
[assq i] [assq i r]
[assv i] [assv i r]
[assoc i] [assoc i r]
[memq i] [memq i r]
[memv i] [memv i r]
[member i] [member i r]
[bwp-object? i] [bwp-object? i]
[weak-cons i] [weak-cons i]
[weak-pair? i] [weak-pair? i]
[char? i] [char? i r]
[char=? i] [char=? i r]
[char<? i] [char<? i r]
[char>? i] [char>? i r]
[char<=? i] [char<=? i r]
[char>=? i] [char>=? i r]
[integer->char i] [integer->char i r]
[char->integer i] [char->integer i r]
[char-whitespace? i] [char-whitespace? i r]
[string? i] [string? i r]
[string i] [string i r]
[make-string i] [make-string i r]
[string-ref i] [string-ref i r]
[string-set! i] [string-set! i r]
[string-length i] [string-length i r]
[string=? i] [string=? i r]
[substring i] [substring i r]
[string-append i] [string-append i r]
[string->list i] [string->list i r]
[list->string i] [list->string i r]
[uuid i] [uuid i]
[date-string i] [date-string i]
[vector i] [vector i r]
[make-vector i] [make-vector i r]
[vector-ref i] [vector-ref i r]
[vector-set! i] [vector-set! i r]
[vector? i] [vector? i r]
[vector-length i] [vector-length i r]
[list->vector i] [list->vector i r]
[vector->list i] [vector->list i r]
[for-each i] [for-each i r]
[map i] [map i r]
[andmap i] [andmap i]
[ormap i] [ormap i]
[fixnum? i] [fixnum? i]
@ -267,35 +268,35 @@
[fxlognot i] [fxlognot i]
[fixnum->string i] [fixnum->string i]
[string->flonum i] [string->flonum i]
[- i] [- i r]
[= i] [= i r]
[< i] [< i r]
[> i] [> i r]
[<= i] [<= i r]
[>= i] [>= i r]
[* i] [* i r]
[+ i] [+ i r]
[add1 i] [add1 i]
[sub1 i] [sub1 i]
[number? i] [number? i r]
[bignum? i] [bignum? i]
[integer? i] [integer? i]
[flonum? i] [flonum? i]
[quotient i] [quotient i r]
[remainder i] [remainder i r]
[quotient+remainder i] [quotient+remainder i r]
[number->string i] [number->string i r]
[string->number i] [string->number i r]
[flonum->string i] [flonum->string i]
[symbol? i] [symbol? i r]
[gensym? i] [gensym? i]
[gensym i] [gensym i]
[getprop i] [getprop i]
[putprop i] [putprop i]
[remprop i] [remprop i]
[property-list i] [property-list i]
[string->symbol i] [string->symbol i r]
[symbol->string i] [symbol->string i r]
[gensym->unique-string i] [gensym->unique-string i]
[symbol-bound? i] [symbol-bound? i]
[symbol-value i] [symbol-value i]
@ -314,20 +315,20 @@
[port-input-size i] [port-input-size i]
[set-port-input-index! i] [set-port-input-index! i]
[set-port-input-size! i] [set-port-input-size! i]
[output-port? i] [output-port? i r]
[input-port? i] [input-port? i r]
[port? i] [port? i r]
[port-name i] [port-name i]
[input-port-name i] [input-port-name i]
[output-port-name i] [output-port-name i]
[open-input-file i] [open-input-file i r]
[with-input-from-file i] [with-input-from-file i r]
[with-output-to-file i] [with-output-to-file i r]
[open-output-file i] [open-output-file i r]
[open-output-string i] [open-output-string i]
[get-output-string i] [get-output-string i]
[close-input-port i] [close-input-port i r]
[close-output-port i] [close-output-port i r]
[console-input-port i] [console-input-port i]
[console-output-port i] [console-output-port i]
[current-input-port i] [current-input-port i]
@ -337,15 +338,15 @@
[standard-error-port i] [standard-error-port i]
[flush-output-port i] [flush-output-port i]
[reset-input-port! i] [reset-input-port! i]
[display i] [display i r]
[write i] [write i r]
[write-char i] [write-char i]
[read i] [read i r]
[read-char i] [read-char i r]
[read-token i] [read-token i]
[peek-char i] [peek-char i]
[unread-char i] [unread-char i]
[newline i] [newline i r]
[printf i] [printf i]
[format i] [format i]
[pretty-print i] [pretty-print i]
@ -358,12 +359,12 @@
[get-hash-table i] [get-hash-table i]
[put-hash-table! i] [put-hash-table! i]
[make-parameter i] [make-parameter i]
[apply i] [apply i r]
[values i] [values i r]
[call-with-values i] [call-with-values i r]
[call/cc i] [call/cc i r]
[call/cf i] [call/cf i]
[dynamic-wind i] [dynamic-wind i r]
[error i] [error i]
[print-error i] [print-error i]
[error-handler i] [error-handler i]
@ -389,10 +390,10 @@
[record-ref i] [record-ref i]
[record-field-accessor i] [record-field-accessor i]
[record-field-mutator i] [record-field-mutator i]
[identifier? i] [identifier? i r]
[syntax-error i] [syntax-error i r]
[generate-temporaries i] [generate-temporaries i r]
[free-identifier=? i] [free-identifier=? i r]
[code? i] [code? i]
[immediate? i] [immediate? i]
[pointer-value i] [pointer-value i]