Changeset 9439 in project


Ignore:
Timestamp:
03/11/08 17:47:18 (12 years ago)
Author:
Kon Lovett
Message:

Fix for missing html-stream & compare of char to string.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/stream-wiki/trunk/extensions/chicken.scm

    r8815 r9439  
    1 (use syntax-case svn-post-commit-hooks orders format-modular srfi-40)
     1(use syntax-case svn-post-commit-hooks orders format-modular srfi-40 html-stream)
    22
    33(define-syntax environment
     
    6969          "] {{"
    7070          (if (and (not (stream-null? text))
    71                    (char=? (stream-car text) "(")
    72                    (char=? (stream-last text) ")"))
     71                   (char=? (stream-car text) #\()
     72                   (char=? (stream-last text) #\)))
    7373              (receive (symbol rest)
    7474                       (stream-break char-whitespace?
Note: See TracChangeset for help on using the changeset viewer.