higepon https://blog.hatena.ne.jp/higepon/ higepon blog https://higepon.hatenablog.com/ scheme ifzeroを自前で追加してスタックの使われかたへの理解を深める。 @@ -24,6 +24,11 @@ (name . begin) (args . ,args))) +(define (make-ifzero . args) + `((type . symbol) + (name . ifzero) + (args . ,args))) + (define (make-func cont) `((type . func) (cont . ,cont))) @@ -40,6 +45,9 @@ (define (begin? exp) (eq? (assq-ref exp 'name) 'be… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhigepon.hatenablog.com%2Fentry%2F20070813%2F1187015844" title=" ese-eval4 - ifzero (was 写経) - higepon blog" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2007-08-13 23:37:24 rich https://higepon.hatenablog.com/entry/20070813/1187015844 1.0 100%