{"type":"rich","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhigepon.hatenablog.com%2Fentry%2F20070813%2F1187015844\" title=\" ese-eval4 - ifzero (was \u5199\u7d4c) - 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>","blog_title":"higepon blog","author_url":"https://blog.hatena.ne.jp/higepon/","description":"ifzero\u3092\u81ea\u524d\u3067\u8ffd\u52a0\u3057\u3066\u30b9\u30bf\u30c3\u30af\u306e\u4f7f\u308f\u308c\u304b\u305f\u3078\u306e\u7406\u89e3\u3092\u6df1\u3081\u308b\u3002 @@ -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\u2026","title":" ese-eval4 - ifzero (was \u5199\u7d4c)","provider_url":"https://hatena.blog","width":"100%","provider_name":"Hatena Blog","url":"https://higepon.hatenablog.com/entry/20070813/1187015844","categories":["scheme"],"blog_url":"https://higepon.hatenablog.com/","image_url":null,"version":"1.0","published":"2007-08-13 23:37:24","author_name":"higepon","height":"190"}