Skip to content

Commit

Permalink
adjust indentation style
Browse files Browse the repository at this point in the history
  • Loading branch information
mflatt committed Jan 16, 2025
1 parent 441f76f commit 8fed418
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions s/ftype.ss
Original file line number Diff line number Diff line change
Expand Up @@ -256,11 +256,11 @@ ftype operators:
#f
#t)])
(make-compile-time-value
(lambda (which)
(case which
[(base) rtd]
[(object) rtd/object]
[_ ($oops 'get-rtd/fptr "unrecognized ~s" which)])))))
(lambda (which)
(case which
[(base) rtd]
[(object) rtd/object]
[_ ($oops 'get-rtd/fptr "unrecognized ~s" which)])))))
(define-syntax rtd/fptr
(lambda (x) (lambda (r) #`'#,((r #'get-rtd/fptr) 'base))))
(define-syntax rtd/object-fptr
Expand Down

0 comments on commit 8fed418

Please sign in to comment.