suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

try to fix infix macros

Browse Source
This commit is contained in:
Jon Rafkind 2010-09-01 09:28:10 -06:00
parent 1b356476a4
commit a1e26dd01b
4 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/honu/core/private/debug.rkt
View File

@ -4,7 +4,7 @@
(provide debug) (provide debug)
(define-for-syntax verbose? #f) (define-for-syntax verbose? #t)
(define-syntax (debug stx) (define-syntax (debug stx)
(if verbose? (if verbose?
(syntax-case stx () (syntax-case stx ()

2
collects/honu/core/private/honu-typed-scheme.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/base #lang racket/base
(require (rename-in typed-scheme (#%module-begin #%module-begin-typed-scheme))) (require (rename-in typed-scheme (#%module-begin #%module-begin-typed-scheme)))
(require (for-syntax scheme/base (require (for-syntax scheme/base

1
collects/honu/core/private/macro.rkt
View File

@ -497,6 +497,7 @@
(define-honu-syntax honu-infix-macro (define-honu-syntax honu-infix-macro
(lambda (stx ctx) (lambda (stx ctx)
(debug "Infix macro!\n")
(define-splicing-syntax-class patterns (define-splicing-syntax-class patterns
#:literal-sets ([cruft #:phase (syntax-local-phase-level)]) #:literal-sets ([cruft #:phase (syntax-local-phase-level)])
#; #;

9
collects/honu/core/private/parse.rkt
View File

@ -72,9 +72,12 @@
(debug "Transforming honu infix macro ~a\n" (stx-car stx)) (debug "Transforming honu infix macro ~a\n" (stx-car stx))
(let-values ([(used rest) (let-values ([(used rest)
(transformer (introducer full-stx) context)]) (transformer (introducer full-stx) context)])
(debug "Result is ~a. Object position is ~a out of expression ~a\n" used (syntax-object-position full-stx (introducer rest)) (syntax->datum full-stx)) (let ([rest (introducer rest)]
(list (introducer rest) (syntax-object-position full-stx (introducer rest)) [position
(introducer (used)))))] (sub1 (syntax-object-position full-stx (introducer rest)))]
[parsed (introducer (used))])
(debug "Result is ~a. Object position is ~a out of expression ~a\n" parsed position (syntax->datum full-stx))
(list rest position parsed))))]
[else (fail)]))) [else (fail)])))
(define-primitive-splicing-syntax-class (honu-transformer context) (define-primitive-splicing-syntax-class (honu-transformer context)