| 123456789101112131415161718192021 |
- ;; (use-modules (guix records))
- ;; (define-record-type* <sway-bindsym>
- ;; sway-bindsym make-sway-bindsym
- ;; sway-bindsym?
- ;; (key-combo sway-bindsym-key-combo
- ;; (default "")))
- ;; (display sway-bindsym) ;; compile error at unknown location
- (define-syntax when
- (syntax-rules ()
- ((when condititon exp ...)
- (if condititon
- (begin exp ...)))))
- (when #t (display "Hello\n"))
- (display when)
|
