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