New paste Repaste Download
(define arch-name
  (eval-when (expand eval compile)
    (and=> (and=> (string-split %host-type #\-)
-                  car)
-           string->symbol)))
+             car)
+      string->symbol)))
Filename: None. Size: 212b. View raw, , hex, or download this file.

This paste expires on 2026-01-05 18:09:08.290054+00:00. Pasted through web.