Expose raart-w and raart-h to users

This is useful for user-defined raart combinators.
2018-08-15 15:33:39 -04:00 · 2018-08-15 15:33:39 -04:00 · 90927c5e74
parent 30f77a7016
commit 90927c5e74
1 changed files with 2 additions and 0 deletions
--- a/draw.rkt
+++ b/draw.rkt
@ -335,6 +335,8 @@
 (provide
 (contract-out
  [raart? (-> any/c boolean?)]
+  [raart-w (-> raart? integer?)]
+  [raart-h (-> raart? integer?)]
  [draw
   (-> buffer? raart?
       void?)]