Changeset 14274 in project


Ignore:
Timestamp:
04/17/09 06:49:51 (11 years ago)
Author:
Alex Shinn
Message:

0.1 release

Location:
release/4/srfi-38
Files:
1 added
2 edited
1 copied

Legend:

Unmodified
Added
Removed
  • release/4/srfi-38/tags/0.1/srfi-38.scm

    r14272 r14274  
    183183                    ((#\s) (parameterize ((case-sensitive #t)) (read-one)))
    184184                    (else (error "unknown read syntax: #c" c)))))
     185               ((#\\)
     186                (read-char in)
     187                (let ((c (read-char in)))
     188                  (if (memv (peek-char in) delimiters)
     189                      c
     190                      (read (make-concatenated-port
     191                             (open-input-string (string #\# #\\ c)) in)))))
    185192               (else ; last resort
    186193                (read (make-concatenated-port (open-input-string "#") in)))))
  • release/4/srfi-38/trunk/srfi-38.scm

    r14272 r14274  
    183183                    ((#\s) (parameterize ((case-sensitive #t)) (read-one)))
    184184                    (else (error "unknown read syntax: #c" c)))))
     185               ((#\\)
     186                (read-char in)
     187                (let ((c (read-char in)))
     188                  (if (memv (peek-char in) delimiters)
     189                      c
     190                      (read (make-concatenated-port
     191                             (open-input-string (string #\# #\\ c)) in)))))
    185192               (else ; last resort
    186193                (read (make-concatenated-port (open-input-string "#") in)))))
Note: See TracChangeset for help on using the changeset viewer.