Skip to content

Automated Resyntax fixes #820

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
resyntax-ci wants to merge 6 commits into
base: master
Choose a base branch
from
Open

Automated Resyntax fixes #820

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
6 commits
Select commit Hold shift + click to select a range
b77b4e4
Fix 7 occurrences of `let-to-define`
resyntax-ci[bot] Aug 16, 2026
0521205
Fix 2 occurrences of `cond-let-to-cond-define`
resyntax-ci[bot] Aug 16, 2026
01bac7c
Fix 7 occurrences of `printf-to-display`
resyntax-ci[bot] Aug 16, 2026
51c83f4
Fix 1 occurrence of `inline-unnecessary-begin`
resyntax-ci[bot] Aug 16, 2026
6af8d9e
Fix 1 occurrence of `map-to-for`
resyntax-ci[bot] Aug 16, 2026
97c9b5d
Fix 2 occurrences of `string-append-with-format-to-format`
resyntax-ci[bot] Aug 16, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
18 changes: 12 additions & 6 deletions drracket-test/tests/drracket/language-test.rkt
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1837,16 +1837,22 @@ the settings above should match r5rs
(define (test-undefined-var id #:icon+in? [icon+in? #f])
(test-expression
id
(string-append (if icon+in? "{stop-22x22.png} " "")
(format "~a: this variable is not defined" id)
(if icon+in? (format " in: ~a " id) ""))))
(format "~a~a: this variable is not defined~a"
(if icon+in? "{stop-22x22.png} " "")
id
(if icon+in?
(format " in: ~a " id)
""))))

(define (test-undefined-fn exp id #:icon+in? [icon+in? #f])
(test-expression
exp
(string-append (if icon+in? "{stop-22x22.png} " "")
(format "~a: this function is not defined" id)
(if icon+in? (format " in: ~a " id) ""))))
(format "~a~a: this function is not defined~a"
(if icon+in? "{stop-22x22.png} " "")
id
(if icon+in?
(format " in: ~a " id)
""))))

(define-syntax (go stx)
(syntax-case stx ()
Expand Down
10 changes: 5 additions & 5 deletions drracket-test/tests/drracket/memory-log.rkt
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -6,11 +6,11 @@
framework/preferences
drracket/private/syncheck/local-member-names) ;; for the syncheck:arrows-visible? method

(printf "The printouts below are designed to trick drdr into graphing them;\n")
(printf "they aren't times, but memory usage. The first is starting up DrRacket,\n")
(printf "the second is after the documentation index has been loaded (via check\n")
(printf "syntax) and the third is after online check syntax has completed once (so\n")
(printf "a place was created and the docs loaded there.\n")
(displayln "The printouts below are designed to trick drdr into graphing them;")
(displayln "they aren't times, but memory usage. The first is starting up DrRacket,")
(displayln "the second is after the documentation index has been loaded (via check")
(displayln "syntax) and the third is after online check syntax has completed once (so")
(displayln "a place was created and the docs loaded there.")

;; mem-cnt returns the amount of memory used, iterating (collect-garbage)
;; until the delta is less than 1% or we've done it 20 times.
Expand Down
Loading
Loading