From 731e41cdb62f35d7a8fdb28a31ce707440aa8520 Mon Sep 17 00:00:00 2001
From: JeffBezanson <jeff.bezanson@gmail.com>
Date: Fri, 12 Mar 2010 06:19:01 +0000
Subject: [PATCH] adding 2 more aliases needed for gambit

---
 femtolisp/aliases.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/femtolisp/aliases.scm b/femtolisp/aliases.scm
index 34fb57d..6b4d615 100644
--- a/femtolisp/aliases.scm
+++ b/femtolisp/aliases.scm
@@ -140,6 +140,10 @@
 (define (current-output-port (p *output-stream*))
   (set! *output-stream* p))
 
+(define (input-port-line p)
+  ; TODO
+  1)
+
 (define get-datum read)
 (define (put-datum port x)
   (with-bindings ((*print-readably* #t))
@@ -272,6 +276,10 @@
   (trycatch (thk)
 	    (lambda (e) (hand e))))
 
+(define (current-exception-handler)
+  ; close enough
+  (lambda (e) (raise e)))
+
 (define make-table table)
 (define table-ref get)
 (define table-set! put!)