suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

commenting out a lot; will start enabling moby runtime in a moment.

Browse Source
This commit is contained in:
Danny Yoo 2011-05-27 15:36:04 -04:00
parent 71d8854084
commit 21a405fb6f
2 changed files with 251 additions and 241 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
js-assembler/mini-runtime.js
View File

@ -313,7 +313,8 @@
if (typeof(window.console) !== 'undefined' && if (typeof(window.console) !== 'undefined' &&
typeof(console.log) === 'function') { typeof(console.log) === 'function') {
console.log(MACHINE); console.log(MACHINE);
console.log(e); if (e.stack) { console.log(e.stack); }
else { console.log(e); }
} }
throw e; throw e;
}; };
@ -1292,6 +1293,7 @@
exports['testArgument'] = testArgument; exports['testArgument'] = testArgument;
exports['testArity'] = testArity; exports['testArity'] = testArity;
exports['raise'] = raise; exports['raise'] = raise;
exports['raiseContextExpectedValuesError'] = raiseContextExpectedValuesError; exports['raiseContextExpectedValuesError'] = raiseContextExpectedValuesError;
exports['raiseArityMismatchError'] = raiseArityMismatchError; exports['raiseArityMismatchError'] = raiseArityMismatchError;

486
lang/kernel.rkt
View File

@ -142,250 +142,258 @@
;; Many of these should be pushed upward rather than stubbed, so that ;; Many of these should be pushed upward rather than stubbed, so that
;; Racket's compiler can optimize these. ;; Racket's compiler can optimize these.
(provide-stub-function write (provide-stub-function
display
displayln
newline
current-print
current-continuation-marks
continuation-mark-set?
continuation-mark-set->list
for-each
make-struct-type write
make-struct-field-accessor display
make-struct-field-mutator newline
struct-type?
struct-constructor-procedure?
struct-predicate-procedure?
struct-accessor-procedure?
struct-mutator-procedure?
procedure-arity
procedure-arity-includes?
make-arity-at-least
arity-at-least?
arity-at-least-value
apply
values
call-with-values
compose
current-inexact-milliseconds
current-seconds
void
random
sleep
(identity -identity)
raise
error
make-exn #;displayln
make-exn:fail
make-exn:fail:contract
make-exn:fail:contract:arity
make-exn:fail:contract:variable
make-exn:fail:contract:divide-by-zero
exn-message ;; current-print
exn-continuation-marks ;; current-continuation-marks
exn? ;; continuation-mark-set?
exn:fail? ;; continuation-mark-set->list
exn:fail:contract?
exn:fail:contract:arity?
exn:fail:contract:variable?
exn:fail:contract:divide-by-zero?
abs
quotient
remainder
modulo
max
min
gcd
lcm
floor
ceiling
round
truncate
numerator
denominator
expt
exp
log
sin
cos
tan
asin
acos
atan
sqrt ;; make-struct-type
integer-sqrt ;; make-struct-field-accessor
make-rectangular ;; make-struct-field-mutator
make-polar ;; struct-type?
real-part ;; struct-constructor-procedure?
imag-part ;; struct-predicate-procedure?
angle ;; struct-accessor-procedure?
magnitude ;; struct-mutator-procedure?
inexact->exact ;; procedure-arity
exact->inexact ;; procedure-arity-includes?
number->string ;; make-arity-at-least
string->number ;; arity-at-least?
procedure? ;; arity-at-least-value
pair? ;; apply
(undefined? -undefined?) ;; values
immutable? ;; call-with-values
void? ;; compose
symbol? ;; current-inexact-milliseconds
string? ;; current-seconds
char? ;; void
boolean? ;; random
vector? ;; sleep
struct? ;; (identity -identity)
eof-object? ;; raise
bytes? ;; error
byte?
number? ;; make-exn
complex? ;; make-exn:fail
real? ;; make-exn:fail:contract
rational? ;; make-exn:fail:contract:arity
integer? ;; make-exn:fail:contract:variable
exact? ;; make-exn:fail:contract:divide-by-zero
inexact?
odd? ;; exn-message
even? ;; exn-continuation-marks
zero?
positive? ;; exn?
negative? ;; exn:fail?
box? ;; exn:fail:contract?
hash? ;; exn:fail:contract:arity?
eqv? ;; exn:fail:contract:variable?
equal? ;; exn:fail:contract:divide-by-zero?
caar ;; abs
cadr ;; quotient
cdar ;; remainder
cddr ;; modulo
caaar ;; max
caadr ;; min
cadar ;; gcd
cdaar ;; lcm
cdadr ;; floor
cddar ;; ceiling
caddr ;; round
cdddr ;; truncate
cadddr ;; numerator
length ;; denominator
list? ;; expt
list* ;; exp
list-ref ;; log
list-tail ;; sin
append ;; cos
reverse ;; tan
map ;; asin
andmap ;; acos
ormap ;; atan
memq
memv ;; sqrt
member ;; integer-sqrt
memf ;; make-rectangular
assq ;; make-polar
assv ;; real-part
assoc ;; imag-part
remove ;; angle
filter ;; magnitude
foldl ;; inexact->exact
foldr ;; exact->inexact
sort ;; number->string
build-list ;; string->number
box ;; procedure?
box-immutable ;; pair?
unbox ;; (undefined? -undefined?)
set-box! ;; immutable?
make-hash ;; void?
make-hasheq ;; symbol?
hash-set! ;; string?
hash-ref ;; char?
hash-remove! ;; boolean?
hash-map ;; vector?
hash-for-each ;; struct?
make-string ;; eof-object?
string ;; bytes?
string-length ;; byte?
string-ref ;; number?
string=? ;; complex?
string-ci=? ;; real?
string<? ;; rational?
string>? ;; integer?
string<=? ;; exact?
string>=? ;; inexact?
string-ci<? ;; odd?
string-ci>? ;; even?
string-ci<=? ;; zero?
string-ci>=? ;; positive?
substring ;; negative?
string-append ;; box?
string->list ;; hash?
list->string ;; eqv?
string-copy ;; equal?
string->symbol ;; caar
symbol->string ;; cadr
format ;; cdar
printf ;; cddr
build-string ;; caaar
string->immutable-string ;; caadr
string-set! ;; cadar
string-fill! ;; cdaar
make-bytes ;; cdadr
bytes ;; cddar
bytes->immutable-bytes ;; caddr
bytes-length ;; cdddr
bytes-ref ;; cadddr
bytes-set! ;; length
subbytes ;; list?
bytes-copy ;; list*
bytes-fill! ;; list-ref
bytes-append ;; list-tail
bytes->list ;; append
list->bytes ;; reverse
bytes=? ;; for-each
bytes<? ;; map
bytes>? ;; andmap
make-vector ;; ormap
vector ;; memq
vector-length ;; memv
vector-ref ;; member
vector-set! ;; memf
vector->list ;; assq
list->vector ;; assv
build-vector ;; assoc
char=? ;; remove
char<? ;; filter
char>? ;; foldl
char<=? ;; foldr
char>=? ;; sort
char-ci=? ;; build-list
char-ci<? ;; box
char-ci>? ;; box-immutable
char-ci<=? ;; unbox
char-ci>=? ;; set-box!
char-alphabetic? ;; make-hash
char-numeric? ;; make-hasheq
char-whitespace? ;; hash-set!
char-upper-case? ;; hash-ref
char-lower-case? ;; hash-remove!
char->integer ;; hash-map
integer->char ;; hash-for-each
char-upcase ;; make-string
char-downcase ;; string
;; string-length
;; string-ref
;; string=?
;; string-ci=?
;; string<?
;; string>?
;; string<=?
;; string>=?
;; string-ci<?
;; string-ci>?
;; string-ci<=?
;; string-ci>=?
;; substring
;; string-append
;; string->list
;; list->string
;; string-copy
;; string->symbol
;; symbol->string
;; format
;; printf
;; build-string
;; string->immutable-string
;; string-set!
;; string-fill!
;; make-bytes
;; bytes
;; bytes->immutable-bytes
;; bytes-length
;; bytes-ref
;; bytes-set!
;; subbytes
;; bytes-copy
;; bytes-fill!
;; bytes-append
;; bytes->list
;; list->bytes
;; bytes=?
;; bytes<?
;; bytes>?
;; make-vector
;; vector
;; vector-length
;; vector-ref
;; vector-set!
;; vector->list
;; list->vector
;; build-vector
;; char=?
;; char<?
;; char>?
;; char<=?
;; char>=?
;; char-ci=?
;; char-ci<?
;; char-ci>?
;; char-ci<=?
;; char-ci>=?
;; char-alphabetic?
;; char-numeric?
;; char-whitespace?
;; char-upper-case?
;; char-lower-case?
;; char->integer
;; integer->char
;; char-upcase
;; char-downcase
call-with-current-continuation ;; call-with-current-continuation
call/cc ;; call/cc
call-with-continuation-prompt ;; call-with-continuation-prompt
abort-current-continuation ;; abort-current-continuation
default-continuation-prompt-tag ;; default-continuation-prompt-tag
make-continuation-prompt-tag ;; make-continuation-prompt-tag
continuation-prompt-tag? ;; continuation-prompt-tag?
make-reader-graph ;; make-reader-graph
make-placeholder ;; make-placeholder
placeholder-set!) ;; placeholder-set!
)