suzanne.soy/pasterack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

upgrade to racket6

Browse Source
This commit is contained in:
Stephen Chang 2014-06-18 15:22:20 -04:00
parent f42c318c26
commit 0df0538cca
2 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pasterack-utils.rkt
View File

@ -9,7 +9,7 @@
(define (to-string/s d) (format "~s" d))
(define (mk-rand-str)
(number->string (random 10000)))
(number->string (random 100000)))
; (bytes->string/utf-8 (list->bytes (for/list ([n 4]) (+ 49 (random 9))))))
(define (get-time/iso8601)

20
pasterack.rkt
View File

@ -26,8 +26,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/plt/racket/bin/scribble")
(define scrbl-exe "/home/stchang/pltpkg/racket/bin/scribble")
(define scrbl-exe "/home/stchang/plt601/racket/bin/scribble")
(define (mk-paste-url paste-num) (++ paste-url-base paste-num))
@ -59,7 +58,7 @@
"7435" ; #lang htdp/bsl + 2htdp/image
"3883" ; echo serv, test limits, and forms in racket but not racket/base
"7658" ; typed/racket
"5873")) ; plot
"97561")) ; plot
(define sample-pastes-htmls
(let ([ns (with-redis-connection
@ -75,7 +74,12 @@
(define TR-bad-ids
(++ "#%module-begin with-handlers lambda λ #%top-interaction for for* "
"define default-continuation-prompt-tag"))
"define default-continuation-prompt-tag struct case-lambda let-values "
"letrec-values for*/product let let* letrec define-struct for*/lists "
"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"))
(define plai-bad-ids "#%module-begin provide")
;; returns generated pastenum
@ -159,7 +163,9 @@
" [sandbox-path-permissions "
"'([read \"/home/stchang/racket/pasterack/tmp/\"]\n"
;; images seem to need access to the prefs file
"[read \"/home/stchang/.racket/\"])]\n"
"[read \"/home/stchang/.racket/\"]\n"
;; 2htdp/image performs exists? checks on libpng
"[exists \"/\"])]\n"
" [sandbox-eval-limits '(20 128)])\n"
" (let ([e (make-module-evaluator "
"'(module m " lang-name
@ -200,7 +206,9 @@
"'(racket/pretty file/convertible))]\n"
" [sandbox-path-permissions "
"'([read \"/home/stchang/racket/pasterack/tmp/\"]"
"[read \"/home/stchang/.racket/\"])]\n"
"[read \"/home/stchang/.racket/\"]\n"
;; 2htdp/image performs exists? checks on libpng
"[exists \"/\"])]\n"
" [sandbox-eval-limits '(20 128)])\n"
; " (let ([e (make-evaluator '" lang ")])\n"
" (let ([e (make-module-evaluator "