Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed up to use a read-line loop

Browse source
This commit is contained in:
Justin Ethier 2016-09-28 17:11:47 -04:00
parent 16242a980e
commit 9830a8184a
1 changed files with 17 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
generate-doc-index.scm
View file

@ -1,8 +1,15 @@
;;;; Cyclone Scheme
;;;; https://github.com/justinethier/cyclone
;;;;
;;;; Copyright (c) 2014-2016, Justin Ethier
;;;; All rights reserved.
;;;;
;;;; A simple program to format links for the API index page.
;;;;
(import
(scheme base)
(scheme write)
(scheme cyclone util)
(srfi 1))
(scheme cyclone util))
;; TODO: move this somewhere useful
(define (index-of lst x)
@ -29,8 +36,11 @@
(string-append
"[`" fnc "`](" file "#" fnc ")")))
(display (convert-line line))
;(define (loop)
; (let ((line (read-line)))
; (if (not (eof? line))
; (display (convert-line line)))))
;(display (convert-line line))
(define (loop)
(let ((line (read-line)))
(when (not (eof-object? line))
(display (convert-line line))
(newline)
(loop))))
(loop)