GitHub PullRequestReviewCommentEvent at 2014-03-31 16:47:47
Repository: picrin
Actor: wasabiz
Payload: {"comment":{"url":"https://api.github.com/repos/wasabiz/picrin/pulls/comments/11124569","id":11124569,"diff_hunk":"@@ -0,0 +1,328 @@\n+(import (scheme base)\n+\t(scheme cxr)\n+\t(picrin macro))\n+\n+  ;;; utility functions\n+(define (reverse* l)\n+  ;; (reverse* '(a b c d . e)) => (e d c b . a)\n+  (let loop ((a (car l))\n+\t     (d (cdr l)))\n+    (if (pair? d)\n+\t(loop (cons (car d) a) (cdr d))\n+\t(cons d a))))\n+\n+(define (number->string n)\n+  ;; fixme\n+  (case n\n+    ((0) \"0\")\n+    ((1) \"1\")\n+    ((2) \"2\")\n+    ((3) \"3\")\n+    (else \"hogee\")))\n+\n+(define (var->sym v)\n+  (let loop ((cnt 0)\n+\t     (v v))\n+    (if (symbol? v)\n+\t(string->symbol (string-append (symbol->string v) \"/\" (number->string cnt)))\n+\t(loop (+ 1 cnt) (car v)))))\n+\n+(define push-var list)\n+\n+(define (every? pred l)\n+  (if (null? l)\n+      #t\n+      (and (pred (car l)) (every? pred (cdr l)))))\n+\n+(define (flatten l)\n+  (cond\n+   ((null? l) '())\n+   ((pair? (car l))\n+    (append (flatten (car l)) (flatten (cdr l))))\n+   (else\n+    (cons (car l) (flatten (cdr l))))))\n+\n+;;; main function\n+(define-syntax syntax-rules\n+  (er-macro-transformer","path":"piclib/syntax-rules.scm","position":47,"original_position":47,"commit_id":"da7b76a77ab8175cb061cd2d7cefa6aa1026ab35","original_commit_id":"da7b76a77ab8175cb061cd2d7cefa6aa1026ab35","user":{"login":"wasabiz","id":540144,"avatar_url":"https://avatars.githubusercontent.com/u/540144?","gravatar_id":"dfe7fdcf9391020af24c4596c31c5092","url":"https://api.github.com/users/wasabiz","html_url":"https://github.com/wasabiz","followers_url":"https://api.github.com/users/wasabiz/followers","following_url":"https://api.github.com/users/wasabiz/following{/other_user}","gists_url":"https://api.github.com/users/wasabiz/gists{/gist_id}","starred_url":"https://api.github.com/users/wasabiz/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/wasabiz/subscriptions","organizations_url":"https://api.github.com/users/wasabiz/orgs","repos_url":"https://api.github.com/users/wasabiz/repos","events_url":"https://api.github.com/users/wasabiz/events{/privacy}","received_events_url":"https://api.github.com/users/wasabiz/received_events","type":"User","site_admin":false},"body":"Can't you use ir-macro-transformer instead? The code'd get much clearer.","created_at":"2014-03-31T16:47:47Z","updated_at":"2014-03-31T16:47:47Z","html_url":"https://github.com/wasabiz/picrin/pull/88#discussion_r11124569","pull_request_url":"https://api.github.com/repos/wasabiz/picrin/pulls/88","_links":{"self":{"href":"https://api.github.com/repos/wasabiz/picrin/pulls/comments/11124569"},"html":{"href":"https://github.com/wasabiz/picrin/pull/88#discussion_r11124569"},"pull_request":{"href":"https://api.github.com/repos/wasabiz/picrin/pulls/88"}}}}