samer@0: (define (readline prompt)
samer@0: 	(org.gnu.readline.Readline.readline prompt)) 
samer@0: 
samer@0: (define-method (connect h l) 
samer@0: 	(samer.silk.Terminal.connect (java.net.Socket. h 2000) l))
samer@0: (define-method (connect h) 
samer@0: 	(samer.silk.Terminal.connect (java.net.Socket. h 2000) readline))
samer@0: