On Mar 28, 2015, at 8:02 AM, Alexander D. Knauth <alexan...@knauth.org> wrote:
> Oh. > > I forgot that try-racket didn’t call current-print within the sandbox. > > In that case maybe you could, in addition, change this line: > https://github.com/jarcane/try-racket/blob/master/main.rkt#L75 > To something like > [else (list (if (void? res) > "" > (parameterize ([print-mpair-curly-braces #f]) > (format "~a" res))) > Does that fix it? Sorry I meant (format “~s” res). > On Mar 28, 2015, at 4:00 AM, Chrakhan Barzanji <chrakhan.barza...@gmail.com> > wrote: > >> no! still does not! >> result: >> > (quote (1 2 3 4)) >> #<void>#<void>#<void>#<void>#<void>#<void>#<void>#<void>#<void>#<void>#<void>#<void>#<void>#<void>#<void>#<void>#<void>#<void>#<void>#<void>#<void>#<void>#<void>(mcons >> 1 (mcons 2 (mcons 3 (mcons 4 '())))) >> > '(1 2 3 4) >> (mcons 1 (mcons 2 (mcons 3 (mcons 4 '())))) >> >> i want: >> > '(1 2 3 4) >> (1 2 3 4) >> >> >> changed: >> >> (define (make-ev) >> (parameterize ([sandbox-output 'string] >> [sandbox-error-output 'string] >> [sandbox-propagate-exceptions #f] >> [sandbox-memory-limit 30] >> [sandbox-eval-limits (list 5 30)] >> [sandbox-namespace-specs >> (append (sandbox-namespace-specs) >> `(file/convertible >> json))] >> [sandbox-path-permissions '((read #rx#"racket-prefs.rktd"))] >> [current-print write]) >> ((lambda () >> (make-evaluator '(special r5rs) >> #:requires `(r5rs/init >> pict >> pict/flash >> pict/code >> file/convertible >> json >> ,autocomplete >> (planet >> schematics/random:1:0/random))))))) >> >> >> >> On Sat, Mar 28, 2015 at 2:09 AM, Alexander D. Knauth <alexan...@knauth.org> >> wrote: >> >> On Mar 27, 2015, at 8:51 PM, Alexander D. Knauth <alexan...@knauth.org> >> wrote: >> >>> Does changing it do this do what you want? >>> (make-evaluator '(special r5rs) '(require r5rs/init) >> >> And I forgot, also add a [current-print write] to the parameterize form? >> >>> On Mar 27, 2015, at 8:26 PM, Chrakhan <chrakhan.barza...@gmail.com> wrote: >>> >>>> I tried already to change the line but what i want to see is when i write >>>> '(1 2 3) in the REPL i want to get (1 2 3) and not '(1 2 3) or (mcons 1( >>>> mcons 2... >>>> Just like DrRacket in r5rs language do! >>>> Any idea what to do? >>>> >>>> >>>> Sent from my iPhone >>>> >>>> On 28 Mar 2015, at 00:44, Alexander D. Knauth <alexan...@knauth.org> wrote: >>>> >>>>> Does this changing this line to `(make-evaluator ‘(special r5rs)` do what >>>>> you want? >>>>> https://github.com/jarcane/try-racket/blob/master/main.rkt#L53 >>>>> >>>>> On Mar 27, 2015, at 6:44 PM, Chrakhan Barzanji >>>>> <chrakhan.barza...@gmail.com> wrote: >>>>> >>>>>> hi, >>>>>> as you may know in TryRacket the language of the REPL is set on >>>>>> racket/base! I mean the Racket interpreter, but i want to change ist to >>>>>> r5rs! could you tell, how to do this! >>>>>> I can run main.rkt locally using localhost, just telll me wher i can >>>>>> tell main.rkt to change me the interpreter language! >>>>>> >>>>>> thanks >>>>>> >>>>>> -- >>>>>> You received this message because you are subscribed to the Google >>>>>> Groups "Racket Users" group. >>>>>> To unsubscribe from this group and stop receiving emails from it, send >>>>>> an email to racket-users+unsubscr...@googlegroups.com. >>>>>> For more options, visit https://groups.google.com/d/optout. >>>>> >>> >>> >>> -- >>> You received this message because you are subscribed to the Google Groups >>> "Racket Users" group. >>> To unsubscribe from this group and stop receiving emails from it, send an >>> email to racket-users+unsubscr...@googlegroups.com. >>> For more options, visit https://groups.google.com/d/optout. >> >> > -- You received this message because you are subscribed to the Google Groups "Racket Users" group. To unsubscribe from this group and stop receiving emails from it, send an email to racket-users+unsubscr...@googlegroups.com. For more options, visit https://groups.google.com/d/optout.
