[Pomp-commits] r621 - pkg/R

[noreply at r-forge.r-project.org]

Author: kingaa
Date: 2012-03-08 00:41:42 +0100 (Thu, 08 Mar 2012)
New Revision: 621

Modified:
   pkg/R/pomp-fun.R
Log:
- minor tweak


Modified: pkg/R/pomp-fun.R
===================================================================
--- pkg/R/pomp-fun.R	2012-03-07 22:11:07 UTC (rev 620)
+++ pkg/R/pomp-fun.R	2012-03-07 23:41:42 UTC (rev 621)
@@ -74,9 +74,9 @@
 
 get.pomp.fun <- function (object) {
   use <- as.integer(object at use-1)
-  if (use==0) {
+  if (use==0L) {
     f <- object at R.fun
-  } else if (use==1) {
+  } else if (use==1L) {
     f <- getNativeSymbolInfo(name=object at native.fun,PACKAGE=object at PACKAGE)$address
   } else {
     stop("invalid ",sQuote("use")," value")