np/scheme-for-kids
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Indent

Browse Source
This commit is contained in:
Nikolay Puzanov 2014-04-18 10:40:19 +04:00
parent 888f8aef0f
commit 22e44c9663
1 changed files with 36 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
kot-kit.scm
View File

@ -1,5 +1,5 @@
(import (rnrs io ports (6))) ;; Guile (import (rnrs io ports (6))) ;; Guile
;(require rnrs/io/ports-6) ;; Racket ;;(require rnrs/io/ports-6) ;; Racket
(setlocale LC_ALL "") ;; Guile (setlocale LC_ALL "") ;; Guile
@ -7,7 +7,7 @@
(for-each (lambda (x) (display x)) params) (for-each (lambda (x) (display x)) params)
(newline)) (newline))
;; Helper functions ;; Helper
(define (answer . params) (define (answer . params)
(for-each (lambda (x) (display x)) params) (for-each (lambda (x) (display x)) params)
(flush-output-port (current-output-port)) (flush-output-port (current-output-port))
@ -64,9 +64,9 @@
(loop tree) (loop tree)
(begin (begin
;; Racket ;; Racket
; (if (file-exists? TREE-FILE-NAME) (delete-file TREE-FILE-NAME) #f) ;; (if (file-exists? TREE-FILE-NAME) (delete-file TREE-FILE-NAME) #f)
(call-with-output-file TREE-FILE-NAME (lambda (p) (write tree p))) (call-with-output-file TREE-FILE-NAME (lambda (p) (write tree p)))
)))) ))))
; vim: set ts=2 sts=2 sw=2 expandtab: ;; vim: set ts=2 sts=2 sw=2 expandtab: