File tree Expand file tree Collapse file tree 2 files changed +5
-5
lines changed Expand file tree Collapse file tree 2 files changed +5
-5
lines changed Original file line number Diff line number Diff line change 485485;; raises an error unless one of `phases' is the current phase
486486(define (only-in-phase func . phases)
487487 (unless (memq current-phase phases)
488- (error func " can only be called in phase: ~a "
488+ (error func tool-tool- phase
489489 (apply string-append
490490 (map (lambda (x) (format "~e " x))
491491 (filter (lambda (x) x) phases))))))
492492
493493;; Preferences GUI
494494
495- (define load-action " Load the tool" )
496- (define skip-action " Skip the tool" )
495+ (define load-action (string-constant load- tool-load) )
496+ (define skip-action (string-constant load- tool-skip) )
497497
498498(define (add-prefs-panel)
499499 (preferences:add-panel
500- " Tools "
500+ (string-constant tool-prefs-panel-title)
501501 (lambda (parent)
502502 (define main (new-vertical-panel% (parent parent)))
503503 (define advisory
Original file line number Diff line number Diff line change 1818 "sandbox-lib "
1919 ("scribble-lib " #:version "1.11 " )
2020 ("snip-lib " #:version "1.2 " )
21- ["string-constants-lib " #:version "1.31 " ]
21+ ["string-constants-lib " #:version "1.32 " ]
2222 "typed-racket-lib "
2323 "wxme-lib "
2424 ["gui-lib " #:version "1.45 " ]
You can’t perform that action at this time.
0 commit comments