Overview
Comment:Return empty string if stuff to output isn't recognised
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 4c0940a61ff7008f9b7986ef15bb7c2f5f53880d
User & Date: matt on 2015-12-22 06:12:53
Other Links: manifest | tags
Context
2015-12-28
03:34
Added snip of stml code from Kiatoa project check-in: 7c85b0da59 user: matt tags: trunk
2015-12-22
06:12
Return empty string if stuff to output isn't recognised check-in: 4c0940a61f user: matt tags: trunk
03:27
Merged selfcontained back to trunk check-in: f276a48081 user: matt tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified stml.scm from [aa5a71c7ff] to [5df99c79b1].

︙︙
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268


(define (s:output port inlst)
  (map (lambda (x)
	 (cond 
	  ((string? x) (print x)) ;; (print x))
	  ((symbol? x) (print x)) ;; (print x))
	  ((list? x)   (s:output port x))
	  (else
	   ;; (print "ERROR: Bad input 02") ;; why do anything? don't output junk.
	   )))
       inlst))
;  (if (> (length inlst) 2)
;      (print)))

(define (s:output-new port inlst)








|








254
255
256
257
258
259
260
261
262
263
264
265
266
267
268


(define (s:output port inlst)
  (map (lambda (x)
	 (cond 
	  ((string? x) (print x)) ;; (print x))
	  ((symbol? x) (print x)) ;; (print x))
	  ((list? x)   (s:output port x))
	  (else ""
	   ;; (print "ERROR: Bad input 02") ;; why do anything? don't output junk.
	   )))
       inlst))
;  (if (> (length inlst) 2)
;      (print)))

(define (s:output-new port inlst)
︙︙