Mercurial > hg > jslab

diff src/scheme/scheme-client.scm @ 0:bf79fb79ee13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial Mercurial check in.
author samer
date Tue, 17 Jan 2012 17:50:20 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/scheme/scheme-client.scm	Tue Jan 17 17:50:20 2012 +0000
@@ -0,0 +1,8 @@
+(define (readline prompt)
+	(org.gnu.readline.Readline.readline prompt)) 
+
+(define-method (connect h l) 
+	(samer.silk.Terminal.connect (java.net.Socket. h 2000) l))
+(define-method (connect h) 
+	(samer.silk.Terminal.connect (java.net.Socket. h 2000) readline))
+