Heya, looked at commit c94afdb0b89b1c1e2b8ec26111aef68308d59bd2, +; Return #t if char is space or tab. +(define (char-horiz-whitespace? char) + (or (eqv? char #\space) + (eqv? char tab))) + (define sugar-read-save read)
(define (consume-to-eol port) @@ -86,11 +94,9 @@ (define (readquote level port qt) (let ((char (peek-char port))) - (if (or (eqv? char #\space) - (eqv? char #\newline) - (eqv? char #\ht)) ; NB possibly more portable (among different Scheme impl) to use (integer->char 9) - (list qt) - (list qt (sugar-read-save port))))) + (if (char-whitespace? char) + (list qt) + (list qt (sugar-read-save port))))) This seems different, shouldn't that be: + (if (or (char-whitespace? char) (eqv? #\newline char)) + (list qt) + (list qt (sugar-read-save port))))) Previous versions supported: ' a b as: '( (a b)) And now it looks like it won't (haven;t checked though). On 7/19/12, Alan Manuel Gloria <almkg...@gmail.com> wrote: > On Thu, Jul 19, 2012 at 6:30 AM, David A. Wheeler <dwhee...@dwheeler.com> > wrote: >> Alan Manuel Gloria <almkg...@gmail.com> >>> Bundle time! >> ... >>> commit 4492dc4a42c5d6b3553491fe36a8b9c1d6bfbe1a >>> Author: Alan Manuel K. Gloria <almkg...@gmail.com> >>> Date: Thu Jul 19 06:20:03 2012 +0800 >>> >>> Add example nfx macro implementation. >>> >>> This very simple implementation of nfx allows >>> very simple arithmetic precedence, and nothing >>> else. >> >> Committed. >> >> Should we change all the sweet-expression Scheme file extensions from >> ".scm" to ".sscm"? I'd like to do that. It'd make it easier to >> auto-invoke translators, as well as making it clear that you need the >> sweet-reader for those files. > > Okay, but I have to go to work now ^^. The advantage of .scm is that > guile by default includes it in the %load-extensions, if we use .sscm > we need to do (set! %load-extensions (cons ".sscm" %load-extensions)) > or some such (not 100% sure, need to check in an actual guile). Maybe > we could modify sweet-guile to do that also so that it's a lot more > seamless. > > Sincerely, > AmkG > ------------------------------------------------------------------------------ Live Security Virtual Conference Exclusive live event will cover all the ways today's security and threat landscape has changed and how IT managers can respond. Discussions will include endpoint security, mobile security and the latest in malware threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/ _______________________________________________ Readable-discuss mailing list Readable-discuss@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/readable-discuss
