; explore.scm

; if it isn't already...
;(load "ghelper")

; just pass through to display
(define explore:display
  (make-generic-operator 1 display 'display))

; just pass through to pp
(define explore:pp
  (make-generic-operator 1 pp 'pp))

; show latex
(define explore:show-latex
  (make-generic-operator 1 #f 'show-latex))

(assign-operation explore:show-latex se function?)
(assign-operation explore:show-latex se matrix?)
(assign-operation explore:show-latex se vector?)

#| ----- Testing
(explore:show-latex sin)
; works as expected

(explore:show-latex #(1 2 3 4))

|# -----