On Mar 28, 2015, at 8:02 AM, Alexander D. Knauth <[email protected]> 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 <[email protected]> > 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 <[email protected]> >> wrote: >> >> On Mar 27, 2015, at 8:51 PM, Alexander D. Knauth <[email protected]> >> 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 <[email protected]> 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 <[email protected]> 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 >>>>> <[email protected]> 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 [email protected]. >>>>>> 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 [email protected]. >>> 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 [email protected]. For more options, visit https://groups.google.com/d/optout.
