Searched +refs:call +refs:with +refs:default +refs:reading +refs:parameterization (Results 1 – 25 of 321) sorted by relevance
12345678910>>...13
1 (module reading-params '#%kernel4 (#%provide call-with-default-reading-parameterization)6 (define-values (call-with-default-reading-parameterization)9 (with-continuation-mark10 parameterization-key11 (extend-parameterization12 (continuation-mark-set-first '#f parameterization-key)16 read-square-bracket-with-tag #f17 read-curly-brace-with-tag #f32 (raise-argument-error 'call-with-default-reading-parameterization
2 (provide with-module-reading-parameterization5 (define (with-module-reading-parameterization thunk)6 (call-with-default-reading-parameterization34 (with-syntax ([(mod nm . _) exp])
8 (provide with-module-reading-parameterization12 (define (with-module-reading-parameterization thunk)16 ;; Would be set by `call-with-default-reading-parameterization`,21 [read-square-bracket-with-tag #f]22 [read-curly-brace-with-tag #f]64 (error 'default-load-handler
63 (with-input-from-file p65 (let ([v (call-with-default-reading-parameterization read)])155 (call-with-continuation-prompt157 (call-with-exception-handler185 (call-with-input-file*217 "error reading collection links file ~s: ~a"223 (call-as-atomic229 (call-with-exception-handler239 (call-with-exception-handler242 (call-with-default-reading-parameterization[all …]
17 (provide default-load-handler20 (define default-load-handler38 ((call-with-input-module-file42 (with-module-reading-parameterization+delay-source99 (call-with-input-file*115 (call-with-continuation-prompt117 (call-with-values (lambda () ((current-eval) (add-top-interaction s))) list))221 (define (with-module-reading-parameterization+delay-source path thunk)224 (with-module-reading-parameterization thunk))225 (with-module-reading-parameterization thunk)))[all …]
26 call-with-default-reading-parameterization
37 (with-handlers ([exn:fail? (lambda (exn)42 (call-with-default-reading-parameterization44 (call-with-input-file* p read)))
17 (let ([ht (call-with-default-reading-parameterization19 (call-with-input-file*
25 #:lock-while-reading? [lock-while-reading? #f])57 (when lock-while-reading?70 (when lock-while-reading?93 (with-method ([gsp (text get-snip-position)]159 (when lock-while-reading? 170 (when lock-while-reading? 277 (with-module-reading-parameterization283 (with-module-reading-parameterization 301 (call-with-values (lambda () (call-with-continuation-prompt307 (default-continuation-prompt-tag)[all …]
42 (call-with-cache-db/catch-exn-until-success-finishes70 (call-with-cache-db/catch-exn-until-success-finishes103 ;; Start with first phase, and continue with its result:110 (call-with-cache-db/catch-exn-until-success-finishes125 ;; empty db. If any failure happens other than reading the db,126 ;; including during `success-handler`, then call `failure-handler` with129 (define call-with-cache-db/catch-exn-until-success-finishes142 (call-with-file-lock/timeout161 (define db (call-with-input-file*164 (call-with-default-reading-parameterization[all …]
13 call-read-language/inside42 (call-read-language/inside 'drracket:submit-predicate63 ;; with this module by the time we get here76 (with-module-reading-parameterization79 (with-handlers ([exn:fail? (λ (exn)113 (define (call-read-language/inside key default)118 (language-get-info key default))]120 default]))125 [(drracket:default-filters126 drracket:default-extension[all …]
27 (define (with-timeout timeout thunk)34 (with-handlers ([void (λ (e)49 (with-handlers ([void (λ (e) (err error-message e))]) expr))61 (try (call-with-default-reading-parameterization read)113 (with-timeout timeout check-version-raw))
19 call-with-file-lock/timeout21 call-with-atomic-output-file258 (let ([bp (current-break-parameterization)]271 (call-with-break-parameterization bp (lambda () (proc out tmp-path))))287 (call-with-break-parameterization394 (call-with-file-lock 435 call-with-input-file*)440 (call-with-values468 (define (read-prefs default-pref-file)473 (let ([f default-pref-file])[all …]
27 (call-with-input-file* 30 (call-with-default-reading-parameterization140 (define (combine-search l default)141 ;; Replace #f in list with default path:148 default))158 [(_ provide config:id id user-id #:default user-default default)178 extra-search-dir default)188 (with-syntax ([dir (generate-temporaries #'(id))])197 (with-syntax ([dir (generate-temporaries #'(id))])207 [(_ provide config:id id user-id default)[all …]