Skip to content
Snippets Groups Projects
Verified Commit 1ebe80a6 authored by Christine Lemmer-Webber's avatar Christine Lemmer-Webber
Browse files

Remove the pe: stuff, nobody's going to use that

parent 62dc3867
No related branches found
No related tags found
No related merge requests found
......@@ -74,7 +74,6 @@
generic-square generic-sqrt
p:+ p:- p:* p:/ p:strict-/ p:square p:sqrt
pe:+ pe:- pe:* pe:/ pe:strict-/ pe:square pe:sqrt
c:+ c:- c:* c:/ c:strict-/ c:square c:sqrt
e:+ e:- e:* e:/ e:strict-/ e:square e:sqrt))
......@@ -287,18 +286,9 @@
(define-simple-propagator p:square generic-square)
(define-simple-propagator p:sqrt generic-sqrt)
(define pe:+ (p->e p:+))
(define pe:- (p->e p:-))
(define pe:* (p->e p:*))
(define pe:strict-/ (p->e p:strict-/))
(define pe:/ (p->e p:/))
(define pe:square (p->e p:square))
(define pe:sqrt (p->e p:sqrt))
(define (constant val)
(function->propagator-constructor (lambda () val)))
(define (p:id input output)
'TODO)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment