mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +02:00
Code Activity

define* in repl-reader

Browse source 
* module/ice-9/boot-9.scm (repl-reader): Use define*.
This commit is contained in:
Andy Wingo 2010-05-21 23:43:35 +02:00
parent d9113d47c6
commit 17ee350cb2
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
module/ice-9/boot-9.scm
View file

@ -3057,15 +3057,12 @@ module '(ice-9 q) '(make-q q-length))}."
;;; The default repl-reader function. We may override this if we've ;;; The default repl-reader function. We may override this if we've
;;; the readline library. ;;; the readline library.
(define repl-reader (define repl-reader
(lambda (prompt . reader) (lambda* (prompt #:optional (reader (fluid-ref current-reader)))
(if (not (char-ready?)) (if (not (char-ready?))
(display (if (string? prompt) prompt (prompt)))) (display (if (string? prompt) prompt (prompt))))
(force-output) (force-output)
(run-hook before-read-hook) (run-hook before-read-hook)
((or (and (pair? reader) (car reader)) ((or reader read) (current-input-port))))
(fluid-ref current-reader)
read)
(current-input-port))))
(define (scm-style-repl) (define (scm-style-repl)