scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

scratch - char-continuation functions

This commit is contained in:
erana 2012-01-23 15:12:11 +09:00
parent 54f0d2145a
commit 72c39ab925
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
scsh/scratch/scratch.scm
View File

@ -26,7 +26,13 @@
;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF ;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
(define (char-continue lst)
;; inner syntax
;; test
;; (list-generate-element a b c) generates an element with each call
(define (list-generate-element lst)
(define (get-char return) (define (get-char return)
(for-each (for-each
(lambda (element) (lambda (element)
@ -40,5 +46,11 @@
(define (gen) (define (gen)
(call-with-current-continuation get-char)) (call-with-current-continuation get-char))
gen) gen)
;; outer syntax
;; test ;; test
;; (char-continue l) generates the chars with each call ;; (list-gen a b c) gives an element of '(a b c) each call
(define-syntax list-gen
(syntax-rules ()
((_ a ...)
(list-generate-element (make-list a ...)))))