Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | call/1cc in sxml-match |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
179541393ea22ce64153cae6a6068781 |
| User & Date: | aldo 2016-12-14 14:46:57 |
Context
|
2016-12-14
| ||
| 15:56 | added take-focus and hit-test to sdl2 (>=2.0.5) check-in: 6aa9c190e9 user: aldo tags: trunk | |
| 14:46 | call/1cc in sxml-match check-in: 179541393e user: aldo tags: trunk | |
| 00:08 | some cleanup on free-gettext.sls check-in: f7b95bffe0 user: aldo tags: trunk | |
Changes
Changes to sxml/sxml-match.ss.
7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
;;
(module portability (let/ec)
; under Chez Scheme and Petite Chez Scheme, use call/1cc
(define-syntax let/ec
(syntax-rules ()
[(let/ec name exp0 exp ...)
(call/cc (lambda (name) exp0 exp ...))]))
)
(module sxml-accessors (nodeset?
xml-element-tag
xml-element-attributes
|
| |
7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
;;
(module portability (let/ec)
; under Chez Scheme and Petite Chez Scheme, use call/1cc
(define-syntax let/ec
(syntax-rules ()
[(let/ec name exp0 exp ...)
(call/1cc (lambda (name) exp0 exp ...))]))
)
(module sxml-accessors (nodeset?
xml-element-tag
xml-element-attributes
|