From 9b0d34771d68964ddb5915842e6dde68cb0d0876 Mon Sep 17 00:00:00 2001 From: pasterack Date: Mon, 7 Dec 2015 15:43:04 -0500 Subject: [PATCH] migrate to pasterack account and racket 6.3 --- .gitignore | 1 + README.md | 2 +- pasterack.rkt | 12 ++++++------ 3 files changed, 8 insertions(+), 7 deletions(-) create mode 100644 .gitignore diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..a389ea6 --- /dev/null +++ b/.gitignore @@ -0,0 +1 @@ +htdocs/* \ No newline at end of file diff --git a/README.md b/README.md index 86bdf5f..5ef203c 100644 --- a/README.md +++ b/README.md @@ -3,4 +3,4 @@ pasterack An evaluating [pastebin](http://www.pasterack.org) for Racket. -pkg dependencies: ring-buffer, redis, irc +pkg dependencies: ring-buffer, redis, irc, memoize diff --git a/pasterack.rkt b/pasterack.rkt index 5185d66..d64d9ea 100644 --- a/pasterack.rkt +++ b/pasterack.rkt @@ -23,7 +23,7 @@ (define racket-logo-url "http://racket-lang.org/logo.png") (define racket-irc-url "https://botbot.me/freenode/racket/") -(define scrbl-exe "/home/stchang/racket611/bin/scribble") +(define scrbl-exe "/home/pasterack/racket63/bin/scribble") ;(define scrbl-exe "/home/stchang/racket-6.2.0.3/bin/scribble") (define PASTE-TITLE-DISPLAY-LEN 32) ; limit length of displayed title @@ -74,7 +74,7 @@ "for*/hasheqv let/cc do for/and for/sum for/hasheq for/lists for*/and " "for*/hasheq for*/vector for/or for/hasheqv for*/last for*/or for/last " "for*/sum for/first for*/fold for/product for/hash for*/list let/ec " - "for/list for/vector for*/hash for/fold for*/first")) + "for/list for/vector for*/hash for/fold for*/first let*-values")) (define plai-bad-ids "#%module-begin provide") ;; returns generated pastenum @@ -156,9 +156,9 @@ "(lambda () (namespace-anchor->namespace anchor)) " "'(racket/pretty file/convertible))]\n" " [sandbox-path-permissions " - "'([read \"/home/stchang/racket/pasterack/tmp/\"]\n" + "'([read \"/home/pasterack/pasterack/tmp/\"]\n" ;; images seem to need access to the prefs file - "[read \"/home/stchang/.racket/\"]\n" + "[read \"/home/pasterack/.racket/\"]\n" ;; 2htdp/image performs exists? checks on libpng "[exists \"/\"])]\n" " [sandbox-eval-limits '(20 128)])\n" @@ -200,8 +200,8 @@ "(lambda () (namespace-anchor->namespace anchor)) " "'(racket/pretty file/convertible))]\n" " [sandbox-path-permissions " - "'([read \"/home/stchang/racket/pasterack/tmp/\"]" - "[read \"/home/stchang/.racket/\"]\n" + "'([read \"/home/pasterack/pasterack/tmp/\"]" + "[read \"/home/pasterack/.racket/\"]\n" ;; 2htdp/image performs exists? checks on libpng "[exists \"/\"])]\n" " [sandbox-eval-limits '(20 128)])\n"