Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Forward declarations of mockup-ed relations (to avoid errors when the

file is loaded).
  • Loading branch information...
commit 5908b372d70c0f24dee7f86bfe6e585ec1093d48 1 parent 298697b
@cderoove authored
Showing with 6 additions and 1 deletion.
  1. +6 −1 EkekoAspectJ/src/damp/ekeko/aspectj/assumptions.clj
View
7 EkekoAspectJ/src/damp/ekeko/aspectj/assumptions.clj
@@ -86,6 +86,11 @@
(pointcut-concretizedby ?abpointcut ?concpointcut1)
(pointcut-concretizedby ?concpointcut1 ?concpointcut2)))
+
+(clojure.core/declare advice-writesto)
+(clojure.core/declare advice-readsfrom)
+(clojure.core/declare percflowaspect)
+(clojure.core/declare consecutiveexec-aspect-advice1-advice2)
;;Assumption this aspect implements a wormhole
;; -- the naive version
@@ -93,7 +98,7 @@
(defn
naivewormhole-aspect-entry-exit
[?aspect ?entryadvice ?exitadvice]
- (all
+ (fresh [?instvar]
(aspect-advice ?aspect ?entryadvice)
(aspect-field ?aspect ?instvar)
(advice-writesto ?entryadvice ?instvar) ;NOT IMPLEMENTED YET
Please sign in to comment.
Something went wrong with that request. Please try again.