about summary refs log tree commit diff
path: root/src/aterm-helper.pl
diff options
context:
space:
mode:
authorEelco Dolstra <e.dolstra@tudelft.nl>2005-02-09T09·50+0000
committerEelco Dolstra <e.dolstra@tudelft.nl>2005-02-09T09·50+0000
commit582e01c06f9ecee25a31c34562926b41dc2856eb (patch)
treeddb6236f949485e3b5b960d66862c45fbdf32207 /src/aterm-helper.pl
parentc5474398433225e40c8868b0952aebe36da2c849 (diff)
* Automatically upgrade <= 0.7 Nix stores to the new schema (so that
  existing user environments continue to work).
* `nix-store --verify': detect incomplete closures.  

Diffstat (limited to 'src/aterm-helper.pl')
-rwxr-xr-xsrc/aterm-helper.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/aterm-helper.pl b/src/aterm-helper.pl
index 5666244ae2..1feff0ccd0 100755
--- a/src/aterm-helper.pl
+++ b/src/aterm-helper.pl
@@ -111,7 +111,7 @@ while (<STDIN>) {
 
         print HEADER "#ifdef __cplusplus\n";
         print HEADER "static inline bool match$funname(ATerm e$formals2) {\n";
-        print HEADER "    if (ATgetType(e) != AT_APPL || ATgetAFun(e) != sym$funname) return false;\n";
+        print HEADER "    if (ATgetType(e) != AT_APPL || (AFun) ATgetAFun(e) != sym$funname) return false;\n";
         print HEADER "$unpack";
         print HEADER "    return true;\n";
         print HEADER "}\n";