We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 590b807 commit 0e7de74Copy full SHA for 0e7de74
src/julia-syntax.scm
@@ -225,11 +225,13 @@
225
(if lb (list lb ub) (list ub))
226
(if lb (list lb '(core Any)) '())))))
227
228
+;; Note that Scheme pairs representing a method in the AST are
229
+;; of the form (method name) or (method (outerref name)), at least in Julia 1.10.
230
(define (is-method? x)
231
(if (and (pair? x) (eq? (car x) 'method))
232
(let ((name (cadr x)))
- (if (and (pair? name) (eq? (car name) 'globalref))
- (let ((name (caddr name)))
233
+ (if (and (pair? name) (eq? (car name) 'outerref))
234
+ (let ((name (cadr name)))
235
(if (symbol? name)
236
#t
237
#f))
0 commit comments