source: project/release/4/kitaaba/trunk/ucs-literal.scm @ 25842

Last change on this file since 25842 was 25842, checked in by felix winkelmann, 9 years ago

added kitaaba (work in progress, far from finished)

  • Property svn:executable set to *
File size: 323 bytes
Line 
1;;;; ucs-literal.scm - literal syntax for UCS(2) strings
2
3
4(module ucs-literal ()
5
6(import scheme chicken)
7(use ports (srfi 4) lolevel)
8
9(include "ucs")
10
11(set-sharp-read-syntax!
12 #\"
13 (lambda (port)
14   (let ((str (read (make-concatenated-port
15                     (open-input-string "\"")
16                     port))))
17     `',(string->ucs str))))
18
19)
Note: See TracBrowser for help on using the repository browser.