Note that there are some explanatory texts on larger screens.

plurals
  1. POexception: current-continuation-marks: no corresponding prompt in the continuation: #<continuation-prompt-tag:web>
    primarykey
    data
    text
    <p>why do i get exception on (redirect/get) in this program</p> <pre><code>#lang web-server (require web-server/formlets web-server/page) (struct app (nm) #:mutable) (define (start req) (render-main-page req)) </code></pre> <p>this function is to be used by most pages and generates comlete page xexpr by calling each given piece of page generator functions, each of which may embed their urls </p> <pre><code>(define (render-page embed/url a-title blocks) (response/xexpr `(html (head (title ,a-title) (body ,@(map (lambda (block) (block embed/url)) blocks)))))) </code></pre> <p>this is piece of first page generator function</p> <pre><code>(define (render-action-panel embed/url action) `(a ([href ,(embed/url action)]) "New")) </code></pre> <p>this is first page</p> <pre><code>(define/page (render-main-page) (local [(define (new-handler req) (render-app-page req (app "new value"))) (define (panel-block embed/url) (render-action-panel embed/url new-handler))] (render-page embed/url "Title" (list panel-block)))) </code></pre> <p>this is piece of second page generator function (represents form)</p> <pre><code>(define (add-app-formlet an-app) (formlet (#%# ,{=&gt; input-string nm}) nm)) (define (render-app-form embed/url an-app save-handler) `(div (form ([action ,(embed/url save-handler)][method "POST"]) (span ,@(formlet-display (add-app-formlet an-app) )) (span (input ([type "submit"][value "Save"]))))));) </code></pre> <p>the second form, save handler throws exception when trying do post-redirect-get</p> <pre><code>(define/page (render-app-page an-app) (local [(define (save-handler req) (render-app-page (redirect/get) (set-app-nm! an-app (formlet-process (add-app-formlet an-app) req)))) (define (form-block embed/url) (render-app-form embed/url an-app save-handler )) ] (render-page embed/url "Title - form: " (list form-block)))) (require web-server/servlet-env) (serve/servlet start) </code></pre>
    singulars
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
 

Querying!

 
Guidance

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload