conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

added waiter-prompt-string parameter (chez compatible)

This commit is contained in:
Abdulaziz Ghuloum 2009-09-25 00:56:09 +03:00
parent 574942c1b0
commit c375d537a3
3 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
scheme/ikarus.cafe.ss
View File

@ -38,19 +38,26 @@ description:
Be specific about what the error-port is |# Be specific about what the error-port is |#
(library (ikarus cafe) (library (ikarus cafe)
(export new-cafe) (export new-cafe waiter-prompt-string)
(import (import
(only (rnrs) with-exception-handler) (only (rnrs) with-exception-handler)
(except (ikarus) new-cafe)) (except (ikarus) new-cafe waiter-prompt-string))
(define eval-depth 0) (define eval-depth 0)
(define waiter-prompt-string
(make-parameter ">"
(lambda (x)
(if (string? x)
x
(die 'waiter-prompt-string "not a string" x)))))
(define display-prompt (define display-prompt
(lambda (i) (lambda (i)
(if (fx= i eval-depth) (if (fx= i eval-depth)
(display " " (console-output-port)) (display " " (console-output-port))
(begin (begin
(display ">" (console-output-port)) (display (waiter-prompt-string) (console-output-port))
(display-prompt (fx+ i 1)))))) (display-prompt (fx+ i 1))))))
(define (print-ex ex) (define (print-ex ex)

2
scheme/last-revision
View File

@ -1 +1 @@
1856 1857

1
scheme/makefile.ss
View File

@ -389,6 +389,7 @@
[assembler-output i] [assembler-output i]
[optimizer-output i] [optimizer-output i]
[new-cafe i] [new-cafe i]
[waiter-prompt-string i]
[expand i] [expand i]
[core-expand i] [core-expand i]
[expand/optimize i] [expand/optimize i]