suzanne.soy/remix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

dots

Browse Source
This commit is contained in:
Jay McCarthy 2015-12-22 15:27:06 -05:00
parent 774df1dd38
commit 2be5cf01ec
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
remix/stx0.rkt
View File

@ -373,7 +373,9 @@
(rename-out [remix-#%app #%app]) (rename-out [remix-#%app #%app])
(for-syntax gen:app-dot-transformer (for-syntax gen:app-dot-transformer
app-dot-transformer?) app-dot-transformer?)
(rename-out [... …]) ;; \ldots (rename-out [... …] ;; \ldots
[... dotdotdot]
[... ***])
#%datum #%datum
quote quote
module module

12
remix/tests/simple.rkt
View File

@ -268,11 +268,17 @@ def x4
;; ... => (#%dot #%dot #%dot) ;; ... => (#%dot #%dot #%dot)
;; … (\ldots) is ... (because that doesn't work with cdots) ;; … (\ldots) is ... (because that doesn't work with cdots)
;; or dotdotdot or ooo or *** (XXX) ;; or dotdotdot or ***
(def [mac (flipper f x … y)] (def [mac (flipper1 f x … y)]
(f y x …)) (f y x …))
(def [mac (flipper2 f x dotdotdot y)]
(f y x dotdotdot))
(def [mac (flipper3 f x *** y)]
(f y x ***))
(module+ test (module+ test
{(flipper - 5 9 0) ≡ (- 0 5 9)}) {(flipper1 - 5 9 0) ≡ (- 0 5 9)}
{(flipper2 - 5 9 0) ≡ (- 0 5 9)}
{(flipper3 - 5 9 0) ≡ (- 0 5 9)})
;; data gives us interfaces, compound data, and data types and that ;; data gives us interfaces, compound data, and data types and that
;; sort of thing ;; sort of thing