lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

adding 2 more aliases needed for gambit

This commit is contained in:
JeffBezanson 2010-03-12 06:19:01 +00:00
parent 716a6447f9
commit 731e41cdb6
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
femtolisp/aliases.scm
View File

@ -140,6 +140,10 @@
(define (current-output-port (p *output-stream*)) (define (current-output-port (p *output-stream*))
(set! *output-stream* p)) (set! *output-stream* p))
(define (input-port-line p)
; TODO
1)
(define get-datum read) (define get-datum read)
(define (put-datum port x) (define (put-datum port x)
(with-bindings ((*print-readably* #t)) (with-bindings ((*print-readably* #t))
@ -272,6 +276,10 @@
(trycatch (thk) (trycatch (thk)
(lambda (e) (hand e)))) (lambda (e) (hand e))))
(define (current-exception-handler)
; close enough
(lambda (e) (raise e)))
(define make-table table) (define make-table table)
(define table-ref get) (define table-ref get)
(define table-set! put!) (define table-set! put!)