回答情况：
提问时间：
问题标签：
5回答
编辑：(define-syntax foo ((_) (display "bar"))))
(old-foo))))))(require-for-syntax scheme/base) (syntax-rules ()
[(foo) (d
浏览 2修改于2010-05-04得票数 6
回答已采纳
测试代码： #'(begin (writeln a))))
(module anonymous-module racket (define-syntax (test-d stx)#'(begin (define (callme a) (writeln a))))
(defi
浏览 3修改于2018-04-07得票数 8
回答已采纳
1回答
让我们考虑下面的示例： (eval `(if ,condition '())))
(body (cddr exp))) (body
浏览 4提问于2018-01-08得票数 3
回答已采纳
3回答
宏是否可以用Scheme编写(例如，使用define-syntax )，它将采用如下表达式：并产生这样的表达式作为输出？考虑到像这样的模板，我想不出一种方法： (syntax-rules () [(v1 v2 ...)
浏览 4提问于2008-12-04得票数 5
回答已采纳
1回答
我有一个愚蠢的测试： (lambda (stx) [(k e s) #'(let ((show display但是，以下方法可以起作用： (lambda (stx) [(k e s)
(with-syntax
浏览 1修改于2011-04-10得票数 0
回答已采纳
如果我在没有库的情况下定义它 (syntax-rules (:times)(library (alib) (import (define-syntax sample2以下是Chez中的完整示例： (syntax-rules (:times)
[(_ n :time
浏览 12提问于2022-04-04得票数 1
回答已采纳
当我阅读时，它提到当您试图使用define-syntax定义语法扩展时，应该使用pat ...在模式中指定零或多个表达式。此外，当作者将and的定义定义如下： (syntax-rules () [(_ e) e]为什么不这样写： (syntax-rules () [(_ e) e]
[(_ e1 e2 ...)
浏览 1提问于2013-09-19得票数 2
回答已采纳
(define-syntax define-quotation-macros ((_ (macro-name head-symbol) ...)(begin (define-syntax macro-name ((_ x :::)
浏览 3修改于2014-05-18得票数 0
回答已采纳
我发现很难记住如何用define-syntax代替define-macro，所以我想在麻省理工学院的方案中实现define-macro (或者至少找到一些等效的东西)。下面是我的(有问题的)实现： (rsc-macro-transformer (list 'define-syntax macro-name
(list 'rsc-macro-t
浏览 0提问于2013-03-21得票数 2
回答已采纳
x)))))(define-syntax odd? ((_ x) (not (even?为什么我需要使用define-syntax？这句话还能做些什么？另外，let对let-syntax和letrec与letrec-syntax的区别是什么？))
(define-macro (
浏览 2修改于2020-04-12得票数 0
回答已采纳
根据，这个函数可以定义为 (syntax-rules () (letcc success 其中letcc被定义为 (syntax-rules () (syntax-rules ()
((letcc var bo
浏览 1修改于2020-02-27得票数 1
回答已采纳
make-rename-transformer一起使用，因此语法参数p充当另一个标识符的别名：(define-syntax-parameter p #f)
#lang racket
(define-syntax-parameter p #f)
相反，如果我
浏览 5提问于2016-08-31得票数 2
回答已采纳
macroexpand-1 '(twice 10))输出：(CALC 10 + 10)现在，我在麻省理工学院计划中尝试做同样的事情： (syntax-rules () (op a b))))
(syntax-rules ()
浏览 0修改于2020-03-03得票数 2
回答已采纳
在Guile中，我正在尝试学习define-syntax和syntax-rules。我的印象是，方案宏不评估它们的论点，但我的宏似乎是这样做的： (syntax-rules ()
((foo word)
浏览 4修改于2021-09-29得票数 1
回答已采纳
考虑R7RS方案中的以下宏定义： (syntax-rules () (begin (define-syntax bar ((_) baz)))))))
我已将此文件加载到chibi-scheme
浏览 2修改于2020-06-20得票数 2
回答已采纳
为此，我想用这个粗略的结构实现一个select宏(我计划让x是数据库的列，但现在只传递了一行)： (syntax-rules (* from where)是文件IO和管道代码)x: undefined;我找到了(define-syntax my-lambda
(syntax-rul
浏览 13提问于2019-04-29得票数 1
1回答
(define-syntax my-define [(my-define (fn v ...) body) #'(define (fn v ...) body)]))
(syntax-rules ()
[(my-let ([v e] ...) body) #'(let ([v e] ...) body
浏览 1修改于2018-08-17得票数 1
回答已采纳
考虑以下两段球拍代码：(define-syntax (b stx) (syntax-case stx () [(X u) #'(display (syntax->datum #'(X u v)))]))
(define-syntax
浏览 0提问于2013-06-06得票数 3
回答已采纳
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号