]> git.draconx.ca Git - scripts.git/blob - fucked.scheme
projects / scripts.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
Add a script to help deploy nanoc sites.
[scripts.git] / fucked.scheme
1 (define fucked (lambda (x) (display "fucked\n") (x x)))
2 (fucked (call-with-current-continuation (lambda (k) (k k))))
Assorted scripts.