Add Q# rational tag

gilch · Sep 29, 2024 · 94621a5 · 94621a5
1 parent 8a30e99
commit 94621a5
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/hissp/macros.lissp b/src/hissp/macros.lissp
@@ -2417,6 +2417,18 @@ Hidden doctest adds bundled macros for REPL-consistent behavior.
       (-<>> (.format "b'{}'"))
       ast..literal_eval))
 
+(defmacro Q\# Q
+  <#; ``Q#`` 'Rational' Exact fraction tag.
+  ;;
+  ;; .. code-block:: REPL
+  ;;
+  ;;    #> Q#2/3
+  ;;    >>> # Fraction(2, 3)
+  ;;    ... __import__('pickle').loads(b'cfractions\nFraction\n(I2\nI3\ntR.')
+  ;;    Fraction(2, 3)
+  ;;
+  (fractions..Fraction (hissp..demunge Q)))
+
 (defmacro en\# f
   <#;``en#`` tag.
   ;; Wrap a function applicable to a tuple as a function of its elements.