Skip to content

Commit

Permalink
Fix
Browse files Browse the repository at this point in the history
  • Loading branch information
raviqqe committed Jan 28, 2025
1 parent 490ca12 commit 094a80a
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions prelude.scm
Original file line number Diff line number Diff line change
Expand Up @@ -3365,13 +3365,13 @@
(begin
(define-syntax define-rust
(syntax-rules ()
((_ name1 name2 ...)
(define-rust "count" 1000 name1 name2 ...))

((_ "count" index name1 name2 ...)
(begin
(define name1 (primitive index))
(define-rust "count" (+ index 1) name2 ...)))

((_ "count" index)
#f)))))
#f)

((_ name1 name2 ...)
(define-rust "count" 1000 name1 name2 ...))))))

0 comments on commit 094a80a

Please sign in to comment.