Hi Daniel, Daniel Hartwig <mand...@gmail.com> skribis:
> scheme@(guile-user)> (define (repl-print* repl val) > (format #t "~20@y" val) > (newline)) > scheme@(guile-user)> (use-modules (system repl common)) > scheme@(guile-user)> (repl-option-set! (car (fluid-ref *repl-stack*)) > 'print repl-print*) > scheme@(guile-user)> (use-modules (srfi srfi-1)) > scheme@(guile-user)> (iota 20) > $1 = (0 1 2 3 4 5 6 7 …) Nice. > From 2251a259058524fbe631fd287c95b43882227f79 Mon Sep 17 00:00:00 2001 > From: Daniel Hartwig <mand...@gmail.com> > Date: Tue, 4 Dec 2012 11:41:35 +0800 > Subject: [PATCH] repl: add repl-option for customized print > > * module/system/repl/common.scm (repl-default-options) > (repl-print): Add option to use customized print procedure. > * doc/ref/scheme-using.texi (REPL Commands): Update. Applied, thanks! Ludo’.
