Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Don't instantiate the invocation.
  • Loading branch information
klutometis committed Dec 2, 2014
1 parent 8d25d45 commit 4f76c78
Show file tree
Hide file tree
Showing 3 changed files with 6 additions and 6 deletions.
1 change: 1 addition & 0 deletions cock.release-info
Expand Up @@ -9,3 +9,4 @@
(release "0.6")
(release "0.8")
(release "0.9")
(release "0.9.1")
9 changes: 4 additions & 5 deletions cock.scm
Expand Up @@ -5,11 +5,10 @@
(define-syntax run-cock
(ir-macro-transformer
(lambda (expression rename inject)
(let ((invocation (cdr expression)))
`(handle-exceptions exn
(warning (format "Documentation not generated: ~a"
((condition-property-accessor 'exn 'message) exn)))
(run (cock ,@invocation)))))))
`(handle-exceptions exn
(warning (format "Documentation not generated: ~a"
((condition-property-accessor 'exn 'message) exn)))
(run (cock ,@(cdr expression)))))))

;; This is a hack to provide unescaped @s.
(define at '@)
Expand Down
2 changes: 1 addition & 1 deletion cock.setup
Expand Up @@ -2,4 +2,4 @@

(setup-shared-extension-module
'cock
(extension-version "0.9"))
(extension-version "0.9.1"))

0 comments on commit 4f76c78

Please sign in to comment.