Mercurial > hg > jslab
comparison src/scheme/scheme-client.scm @ 0:bf79fb79ee13
Initial Mercurial check in.
| author | samer |
|---|---|
| date | Tue, 17 Jan 2012 17:50:20 +0000 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:bf79fb79ee13 |
|---|---|
| 1 (define (readline prompt) | |
| 2 (org.gnu.readline.Readline.readline prompt)) | |
| 3 | |
| 4 (define-method (connect h l) | |
| 5 (samer.silk.Terminal.connect (java.net.Socket. h 2000) l)) | |
| 6 (define-method (connect h) | |
| 7 (samer.silk.Terminal.connect (java.net.Socket. h 2000) readline)) | |
| 8 |